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Vorwort des Fachlektors 


Eigentlich schreibe ich nur Vorworte in meinen eigenen Büchern, denn was habe ich davon, 
wenn ich die Produkte der Konkurrenz lobe? Nun, man sollte auch sachlich bleiben, und dieses 
Buch hat Lob verdient. 

Im Gegensatz zu so manchem Grafik-Buch werden hier nämlich nicht nur ein paar Programme 
vorgeführt, mit denen der Leser spielen kann, sondern es wird Wissen vermittelt. 

Wohl aus Angst, mögliche Käufer zu verschrecken, verschweigen andere Bücher, daß Grafik 
nichts weiter als angewandte Mathematik ist. Diese leider nicht zu ändernde Tatsache bestreitet 
der Autor nicht, sondern geht das Problem an. 

Es ist ihm gelungen, schwierige mathematische Zusammenhänge allgemeinverständlich und 
angenehm lesbar zu erklären. Mathematik-Puristen mögen stellenweise etwas einzuwenden 
haben, die Aussagen sind aber immer sachlich korrekt und führen präzise zum eigentlichen 
Ziel, nämlich der programmtechnischen Lösung. 

Die Programme selbst sind immer vom Feinsten. Sie sind sauber programmiert, ausführlich 
kommentiert und bringen interessante Lösungen mit fantastischen grafischen Effekten. 

Die Programme bereichern das Buch natürlich; ich sehe sie aber nur als nützliche Zugabe. Pri¬ 
mär ist positiv zu bewerten, daß dem Leser alle Kenntnisse von den Grundlagen bis hin zu den 
Tricks der Profis vermittelt werden, womit er selbst in die Lage versetzt wird, komplexe grafi¬ 
sche Programme zu schreiben. 


Peter Wollschlaeger 



10 Vorwort des Fachlektors 








12 Einleitung 


Haben Sie noch irgendwelche Zweifel, ob Sie mit Ihrem Amiga die richtige Wahl getroffen 
haben? Nun, dann schauen Sie sich doch einmal die Bilder in diesem Buch an... 

Jetzt wo Sie der absolut festen Überzeugung sind, den besten Rechner der Welt zu Hause stehen 
zu haben, sollten Sie auch nicht vor einem adäquaten Buch zu dieser Hypermaschine halt¬ 
machen. Nein, schauen Sie nicht wieder ins Bücherregal, es liegt bereits in Ihren Händen! 

So oder ähnlich könnte sich die Einleitung zu einem Buch-Erzeugnis zweiter Wahl anhören. 
Wir aber wollen uns hier natürlich mit ernsten Dingen befassen und bleiben deshalb gediegen 
und seriös! 

Zugegeben, Spaß macht es allemal, das Letzte aus einem solchen Gerät herauszuholen, was 
gerade noch vertretbar ist; das Letzte an Geschwindigkeit, an Auflösung, an Farbe. Und dieses 
Buch wird Ihnen dabei helfen. Es macht Sie zum Profi, zum Spezialisten, was Grafik betrifft. 

Oberste Prämisse: Verständlichkeit! Gerade das Gebiet der Grafik, das in der Mathematik eine 
entscheidende Rolle spielt, ist oft als schwierig und kompliziert verschrieen. Dieses Buch soll 
damit ein für allemal Schluß machen. Was Sie lesen, das sollen Sie auch von Anfang an verste¬ 
hen! Aus diesem Grunde wurde erstens viel Wert auf eine systematische Gliederung der The¬ 
men und zweitens auf ausführliche Erklärungen gelegt, auch wenn dadurch zwangsläufig ab 
und zu einmal etwas doppelt erläutert wird (besser als einmal zuwenig). 

Gleich danach ist das zweite Prinzip dieses Buches anzusiedeln: Hoher Informationsgehalt! Sie 
werden in diesem Buch Dinge finden, wie sie bisher stets nur »Eingeweihten« und »Insidern« 
bekannt waren. 

Viele sehr gut dokumentierte und lehrreiche Beispielprogramme, die Ihnen gleichzeitig einige 
Freude bereiten werden, veranschaulichen die praktizierte Theorie und Sie werden merken, 
daß alles gar nicht so schwierig ist, wie Sie vielleicht bisher meinten. Beim Thema Grafik wird 
schließlich auch nur mit Wasser gekocht. Die Programme sind entweder in Amiga-Basic 
oder/und in der bekannten Programmiersprache C geschrieben, die immer mehr Freunde 
gerade auf dem Amiga und auch auf anderen Rechnern gewinnt. Alle Programme strotzen nur 
so vor Kommentaren und werden im Text ausführlichst beschrieben. Für C-Freunde ist es 
sicher eine gute Nachricht, daß sämtliche C-Programme sowohl mit dem Aztek- als auch mit 
dem Lattice-Compiler unveränderte!) kompiliert werden können. 

Und das steht drin: 

Sind Sie nun neugierig geworden? Na, dann hören Sie sich einmal an, was wir noch zu bieten 
haben. Zunächst beschäftigen wir uns mit einigen grundlegenden Grafikeigenschaften des 
Amiga, deren Kenntnis die Voraussetzung für die restlichen Kapitel des Buches sind. Es wird 
also sowenig wie nur möglich an Wissen und Fertigkeiten vorausgesetzt. Hier finden Sie Infor¬ 
mationen über Farben, Grafikaufiösungen, Grafikmodi und dergleichen. Zur selben Zeit erfah¬ 
ren Sie, wie Sie diese Grafikfeatures aus Amiga-Basic und aus C heraus am effektivsten nutzen 
können. 

Nach dieser kleinen Einführung kommen wir gleich zur Sache. Es geht darum, die Techniken, 
die uns später in den dreidimensionalen Kapiteln ständig begleiten werden, hier zunächst auf 
»sicherem Boden« zweidimensional darzustellen: Punkte, Linien, Kreise, Ellipsen und »das. 
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was dahintersteckt«. Zentraler Punkt sind die sogenaimten Transformationen: Hier erfahren 
Sie, wie Sie Objekte in der Ebene vergrößern, verschieben, drehen oder spiegeln. Die mathe¬ 
matischen Grundlagen hierzu werden ausführlich und verständlich erklärt, und ich garantiere 
Ihnen, daß Sie am Ende des Kapitels einiges hinzugelemt haben! 

Das für die Fenstertechnik wichtige sogenannte Clipping von Linien - für die einen ein unbe¬ 
kannter Begriff, für die anderen ein Schreckgespenst - wird danach ebenso zu Ihrem Repertoire 
gehören wie die einfache Verformung von Bildschirmbereichen. Letzteres ist auch bekannt 
unter der »Mona-Lisa-auf-Cola-Flasche-Projektion« oder: Wie wickle ich mein Grafikbild um 
eine Tonne, um eine Kugel? 

Nach der Einführung in die Grundbegriffe, die vor allem für dreidimensionale Grafiken von 
entscheidender Bedeutung sind, geht es nun tatsächlich ans »Eingemachte«; 3-D-Grafik, wie 
sie leibt und lebt. Ausführlich erfahren Sie alles über 3-D-Koordinatensysteme und wie man 
eine dreidimensionale Welt am besten organisiert, speichert und handhabt. 

Was versteht man unter einer parallelen, was unter einer Zentralprojektion? Wie programmiere 
ich dreidimensionale Grafiken mit Vergrößerungen, Drehungen usw. im Raum unter Basic, wie 
unter C? Wie simuliere ich einen Beobachter, lasse ihn durch die Szenerie einer 3-D-Welt wan¬ 
dern und vieles mehr. Programme, die Sie sich ansehen müssen! 

Im fünften Kapitel schließlich geht es darum, eigentlich verdeckte Linien und Flächen unsicht¬ 
bar zu machen, Techniken zum Problem der »Hidden Lines and Surfaces« werden jeweils für 
unterschiedliche Problemstellungen vorgestellt. Hier finden Sie einen 3-D-Funktionsplotter, 
der es in sich hat, der Sie begeistern wird - und sämtliches Background-Wissen selbstverständ¬ 
lich. 

Begeistern wird S ie aber auch die in Programm und Wort demonstrierte realistische Darstellung 
von dreidimensionalen Objekten mit verdeckten Flächen unter Berücksichtigung einer frei 
positionierbaren Lichtquelle etc. 

Wenn Sie alles das hinter sich gelassen haben und sich denken, daß es ja jetzt gar nicht mehr 
besser kommen kann, dann muß ich Sie leider enttäuschen. Halten Sie sich fest! Haben Sie 
schon einmal dreidimensionale Grafiken höchster Perfektion eigenhändig programmiert unter 
Berücksichtigung von mehreren Lichtquellen, Schattenbildung, spiegelnder und diffuser 
Lichtreflexionen, total verspiegelter Objekte mit Mehrfachspiegelungen oder durchsichtiger 
Körper? Kennen Sie den Unterschied zwischen matten, polierten, metallischen oder nichtme¬ 
tallischen Gegenständen? Ihre Bilder sehon! Die Technik des Ray-Tracings macht es möglich: 
Basteln Sie sich Ihre eigene Welt, programmieren Sie sich Ihre eigenen Naturgesetze, Ihr eige¬ 
nes Stilleben. Bilder, die Sie bisher höchstens in Diashows bewundert haben, können Sie in 
Zukunft selbst programmieren, selbst erstellen. Dieser absolute Höhepunkt des Buches wird 
nicht nur den Autor selbst faszinieren. Endlich können auch Sie eine »Jongleur-Demo« erstel¬ 
len, nur noch perfekter. 

Wenn Sie dann noch ein wenig Atem haben, dann sollten Sie sich das siebte Kapitel nicht entge¬ 
hen lassen, das sich mit der erstaunlich realistischen Darstellung sogenannter Rotationskörper 
beschäftigt. Lichtquellen und Schattierungen sind dort bereits auch für Sie selbstverständliehe 
Arbeitsmittel. 
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Was ist ein Buch ohne Anhang, ohne Nachschlagewerk? Im Anhang finden Sie noch einmal 
alle mathematischen Grundwerkzeuge kompakt zusammengestellt. Wir erklären auch grundle¬ 
gende mathematische Prinzipien wie Winkelfunktionen usw. Als Vorwissen benötigen Sie nur 
Grundkenntnisse der Algebra. 

Ebenfalls im Anhang finden Sie eine vollständige Zusammenstellung aller im Buch verwende¬ 
ten Library-Funktionen mit Übergabeparametern und Beschreibung. 

Ausführliche Literaturhinweise sowie ein umfangreiches Stichwortverzeichnis, in dem Sie alles 
sofort auf einen Blick wiederfmden, runden das Werk ab. 
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Daß der Amiga phänomenale Grafikeigenschaften besitzt, brauchen wir hier nicht wieder zu 
betonen. Wie Sie allerdings als Programmierer Gebrauch davon machen können, das sollten 
wir uns doch einmal genauer anschauen. 

In diesem Kapitel erfahren Sie die allernötigsten Grundlagen, die Sie kennen sollten, wenn Sie 
mit dem Amiga Grafik erzeugen wollen. Angefangen von den grundsätzlichen Grafikmöglich¬ 
keiten (Auflösungen, Farben etc.) werden wir hier kurz und knapp beschreiben, wie Sie von 
Amiga-Basic aus oder aus der Sprache C die verschiedensten Graflkoperationen ansteuern kön¬ 
nen. Das hat etwas mit den Basic-Befehlen zur Grafik und natürlich mit der Grafik-Library zu 
tun. Hier werden Sie also die Grundlagen für die vielen Beispielprogramme des Buches vermit¬ 
telt bekommen. Selbstverständlich ist es Ihnen überlassen, das Kapitel zu überspringen, wenn 
Sie bereits in Besitz der notwendigen Kenntnisse sind. 


2.1 Die Farben des Amiga 

Um die Farbgebung des Amiga - und im übrigen aller RGB-Rechner und -Monitore - zu verste¬ 
hen, müssen wir einen kleinen Exkurs durch die »Allgemeine Farbenlehre« unternehmen. 

Sie alle kennen sicher die Technik, mit Wasserfarben durch geschicktes Mischen aus den drei 
Grundfarben Rot, Blau und Gelb alle anderen Farben herzustellen. Violett beispielsweise ent¬ 
steht dabei aus der Mischung von Rot und Blau, Grün durch Blau und Gelb und Schwarz durch 
Zugabe aller drei Farben. Ist uns ein Violett nicht blau genug, dann geben wir kurzerhand noch 
ein wenig von dieser Grundfarbe hinzu etc. Je mehr wir also von den Grundfarben hinzugeben, 
desto dunkler wird die resultierende Mischfarbe. Wir bezeichnen dieses Phänomen deshalb 
auch als Subtraktive Farbmischung. 

Auch Goethe untersuchte diese Form der Farbmischung und entwickelte seinen berühmten 
Goethe-Farbkreis, den wir weiter unten - allerdings für unsere Zwecke modifiziert - skizziert 
haben. 

Eine etwas andere Form der Farbmischung stellt die sogenannte Additive Farbmischung dar. 
Hierbei handelt es sich um die Mischung farbigen Lichtes. Auch hier existieren wieder drei 
Grundfarben - hier sind es Rot, Grün und Blau -, aus deren Kombination wir alle anderen 
Lichtfarben mischen können (das Ganze ist natürlich kein unerklärliches Naturphänomen, son¬ 
dern hat mit der Art und Weise zu tun, wie unser Auge Farben identifiziert). Je intensiver jedoch 
hier die Grundfarben zugemischt werden, desto heller erscheint die resultierende Farbe (des¬ 
halb der Name Additive Farbmischung). Eine Kombination gleicher Teile aller drei Grund¬ 
farben beispielsweise ergibt die »Farbe« Weiß. Welche Farben aus welchen Grundfarben 
gemischt werden können, zeigt Ihnen die folgende Skizze. 

Diese Tatsachen machen sich nun die modernen Farb-Monitore und -Fernseher zunutze. Jeder 
einzelne Punkt auf dem Bildschirm setzt sich in Wahrheit nämlich aus drei dicht nebeneinander 
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Bild 2.1: Additive Farbmischung 


liegenden farbigen Punkten zusammen (schauen Sie einmal genau hin). Sie besitzen eben die 
drei Grundfarben Rot, Grün und Blau (RGB). Aufgrund der Entfernung unseres Auges von der 
Mattscheibe registrieren wir nur einen einzigen Punkt, dessen Farbe die Mischung der drei Ein¬ 
zelpunktfarben darstellt. Soll ein Punkt nun beispielsweise in Weiß erscheinen, so leuchten alle 
drei Einzelpunkte in gleicher Intensität auf. Für Gelb treten nur Rot und Grün in Aktion und 
bei Schwarz haben alle drei »Leuchter« Funkstille. 

Da unser Amiga ein farbiges Monitorbild produzieren soll, muß auch er wissen, aus welchen 
Grundfarben sich die Farbe eines Punktes zusammensetzen soll. Dabei ist natürlich ebenfalls 
die Intensität der einzelnen Grundfarben wichtig. Der Programmierer hat nun die Möglichkeit, 
genau diese Informationen anzugeben. Der Amiga stellt dabei für jede Grundfarbe eine Palette 
von 16 Intensitätsstufen von Schwarz bis »Volle Leuchtkraft« zur Verfügung. Sie sind nun in der 
Lage, aus einer Kombination dieser drei Grundfarben mit jeweils beliebiger Intensität diejenige 
resultierende Farbe auszuwählen, die Ihnen gefällt. Sie können dabei aus einer Auswahl 
von 4096 Kombinationen aussuchen (für jede Grundfarbe 16 Intensitäten ergeben 
16x 16x 16 = 4096 Farben). Daraus ergibt sich eine Farbvielfalt, die gerade bei 3-D-Bildern 
besonders zum Tragen kommt und auch - man glaubt es kaum - voll ausgeschöpft wird. Teure 
und spezielle Grafikterminals erlauben oft noch um Größenordnungen feinere Farbwahlen 
(mehr als eine Million Farben etc.), was sich entsprechend auf die Bildqualität niederschlägt. 
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Es gibt beim Amiga zwar einen Modus, unter dem sich mit einem speziellen Trick auch alle 
4096 Farben gleichzeitig darstellen lassen (in einem anderen Modus sind es 64), normalerweise 
aber kann er zur selben Zeit maximal 32 dieser 4096 Farben auf dem Bildschirm anzeigen. Wel¬ 
che Farben das nun sind, steht Ihnen natürlich wiederum völlig frei. Haben Sie sich 32 passende 
Farben ausgesucht, dann speichern Sie diese in 32 sogenannte Palettenregister (s. Skizze). Aus 
diesen Registern (von 0 bis 31 durchnumeriert) entnimmt Ihr Amiga dann die Information, mit 
welcher Farbe er einen bestimmten Punkt anförben soll. Das Palettenregister Nummer 0 spielt 
dabei eine besondere Rolle. Es stellt stets das Hintergrund-Farbregister dar. 



Bild 2.2; Auswahl von 32 Palettenfarben 

Später beim Zeichnen (bzw. im Grafikspeicher selbst; s.u.) geben Sie dann für einen einzelnen 
Punkt nur noch die Nummer desjenigen Palettenregisters an, aus dem er seine Farbe beziehen 
soll. Die 32 Palettenregister spielen dann sozusagen die Rolle von 32 Pinseln, die in eine 
bestimmte Farbe getaucht wurden und dann zum Zeichnen Verwendung finden. 

Wie wird nun die Farbe in einem solchen Palettenregister gespeichert? 

Angegeben werden müssen ja in jedem Fall die Intensitätswerte (0-15) der drei Grundfarben 
Rot, Grün und Blau. Dies geschieht in Amiga-Basic auf einfache Weise durch den Befehl 
PALETTE. Hier können Sie die Intensitätswerte sogar wahlweise als Werte zwischen 0,00 und 
1,00 angeben (prozentualer Anteil). 
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Auch in C bzw. bei der Verwendung der Graphics-Library-Funktion SetRGB4() bzw. 
SetRGB4MC() - wir werden auf die Library-Funktionen in diesem Kapitel noch zu sprechen 
kommen - brauchen Sie nur die Werte für Rot, Grün und Blau anzugeben. 

In Wahrheit werden diese drei Werte aber zusammengepackt in ein 32-Bit-Register abgelegt, 
das den folgenden Aufbau hat: 



Mit diesem Aufbau haben Sie jedoch beim Amiga kaum etwas zu tun, da Sie ja - wie gesagt 
- spezielle Funktionen verwenden können, die für die richtige Zuordnung bereits sorgen. 


2.2 Grafikauflösungen und Bild-Koordinatensysteme 

Wie viele Rechner besitzt auch Ihr Amiga verschiedene Grafikauflösungen für die verschieden¬ 
sten Zwecke. Er verwendet dabei allerdings ein recht flexibles und variationsreiches System 
zur Wahl der richtigen Grafik- und Farb-Auflösung. 

a) Die Standard-Auflösungen: 

Unter »Standard-Auflösungen« verstehen wir hier zwei verschiedene Modi, die am einfach¬ 
sten zu handhaben sind und damit wohl am weitaus häufigsten Anwendung finden. Es sind 
dies: 

Niedrige Auflösung; 320x256 Punkte (320x200 unter NTSC) 
max. 32 Farben gleichzeitig 

Hohe Auflösung: 640x256 Punkte (640x2(X) unter NTSC) 

max. 16 Farben gleichzeitig 

(Unter 320x200 versteht man 320 Punkte in der Waagerechten bzw. x-Richtung und 200 
Punkte in der Senkrechten oder auch y-Richtung. NTSC ist die amerikanische Fernseh¬ 
norm, wir arbeiten mit dem PAL-System.) Die Workbench beispielsweise arbeitet »serien¬ 
mäßig« in der hohen Auflösung, in der 80 Zeichen pro Zeile möglich sind. Die niedrige Auf¬ 
lösung findet meist dann Verwendung, wenn es entweder um Speicherersparnis (jeder Punkt 
mehr auf dem Bildschirm kostet natürlich mehr Bildschirmspeicher) oder vor allem um 
mehr Farben geht. Den Zusammenhang werden wir sofort noch eingehender besprechen. 
Natürlich spielen die Fähigkeiten Ihres Monitors (Fernsehers?) ebenfalls eine Rolle bei der 
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Auswahl des richtigen Modus. Beachten Sie bitte, daß in der hohen Auflösung jeder Punkt 
halb so breit aber gleich hoch wie in der 320x200er ist. Die niedrige Auflösung stellt (fast) 
quadratische Punkte dar. Aus diesem Grunde kann es eventuell zu Verzerrungen kommen. 

b) Interlace-Modus (Zeilensprungverfahren): 

Die beiden Standard-Bildschirm-Auflösungen variieren - das ist leicht zu sehen - lediglich 
in der Waagerechten. Dies liegt an der Geschwindigkeit der Video-Prozessoren, die ja in 
der gleichen Zeit mehr Punkte bearbeiten und darstellen müssen, je höher die Auflösung ist. 

Es gibt jedoch eine Möglichkeit, auch die y-Auflösung zu verdoppeln. Dies geschieht im 
sogenannten Zeilensprungverfahren (Interlace-Modus). 

Normalerweise wird ein Bild auf dem Monitor 50mal (unter NTSC öOmal) pro Sekunde 
Zeile für Zeile von einem Elektronenstrahl neu aufgebaut, um ein möglichst flackerfreies 
Bild zu erhalten. Im Interlace-Modus geschieht dagegen folgendes: Wird ein Bild »zu Moni¬ 
tor« gebracht, so wird zunächst nur jede zweite Zeile abgetastet. Zwischen zwei Zeilen 
bleibt dann natürlich jeweils eine Leerzeile. Beim nächsten Bildaufbau aber werden dafür 
nur die fehlenden Zwischenzeilen vervollständigt. Ein ganzes Bild braucht also zwei Durch¬ 
gänge, bevor alle Punkte dargestellt wurden - das ist dann nur noch 25mal (unter NTSC 
30mal) pro Sekunde. Aus diesem Grunde kommt es - je nach Farbenwahl - zu einem mehr 
oder weniger starken Flackern des Bildes, dem man sich nicht gern länger aussetzt (ein Tip: 
drehen Sie den Kontrast herunter oder verwenden Sie kontrastarme Farben, das Tragen einer 
Sonnenbrille soll auch helfen). 

Aber wir können die beiden Standard-Auflösungen erweitern: 


Niedrige Auflösung, Interlace: 

320x512 (bzw. 320x400) 


max. 32 Farben gleichzeitig 

Hohe Auflösung, Interlace: 

640x512 (bzw. 640x400) 


max. 16 Farben gleichzeitig 


Die Anwendungen sind klar: Große Auflösung bringt großen Überblick und viele Details. 
Besonders bei CAD-Programmen, Tabellenkalkulationen oder Textverarbeitungen sind dies 
entscheidende Vorteile. Noch ein Vorteil des Interlace-Modus: Die Anzahl der verfügbaren 
Farben n im mt im Vergleich zu den Standard-Modi nicht ab! Bei Bildschirmfotos spielt das 
Flackern keine Rolle, da hier mit Belichtungszeiten von ca. 1 Sekunde gearbeitet wird. 

c) Hold-and-Modify-Modus (HAM): 

Hochinteressant wird es bei diesem Spezialmodus Eires Amiga. Hier haben Sie tatsächlich 
die Möglichkeit, alle 4096 möglichen Farben gleichzeitig auf dem Bildschirm darzustellen. 
Dafür müssen wir allerdings auch einige Einschränkungen in Kauf nehmen: 

Grundsätzlich arbeitet HAM nur unter einer einzigen Auflösung: 

Hold-and-Modify: 320x256 (bzw. 320x200) 

Bezüglich der Farbgebung der einzelnen Punkte sind zwei Fälle zu unterscheiden, die 
nebeneinander im gleichen Bild auftauchen können. Zum einen haben Sie die Möglichkeit, 
die Farbe für einen Punkt ganz normal aus 16 Palettenregistern auszuwählen (ähnlich wie 
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im hochaufgelösten Modus). Zum anderen aber können Sie auch Farben einstellen, die nicht 
in diesen 16 Registern stehen. Dies geht folgendermaßen vor sich: 

Die Farbe eines Punktes ist stets abhängig von der Farbe des links danebenliegenden. Von 
diesem vorherigen Punkt ist nämlich noch die Farbe bekaimt, die sich ja bekanntlich aus 
den drei Grundfarben Rot, Grün und Blau zusammensetzt. Für die Farbe des aktuellen 
Punktes dürfen Sie nun nur die Intensität einer einzigen Grundfarbe ändern (z.B. Rot), die 
aber beliebig. Wollen Sie dagegen zwei oder alle drei Grundfarben ändern, dann müssen 
Sie das schrittweise über ein oder zwei Zwischenpunkte tätigen. 



Beachten Sie bitte, daß der erste Punkt einer Bildschirmzeile stets in der Hintergrundfarbe 
erscheint (Inhalt des Palettenregisters 0). Es wird also nicht die Farbe des letzten Punktes 
der vorhergehenden Zeile übernommen. 

Sie sehen, die Handhabung dieses Modus ist nicht ganz einfach. Aber gerade für Bilder, 
die viele verschiedene Farben oder Farbschattierungen enthalten sollen, ist er die einzige 
Möglichkeit. 

d) Extra-Half_Brite-Modus: 

In den neuen Amigas wurde von den Entwicklern Ihres Rechners noch ein weiterer Modus 
eingeführt, der sich ebenfalls geradezu hervorragend für 3-D-Effekte anbietet: Der Extra- 
Half_Brite-Modus. Er funktioniert nicht bei den alten Amiga 1000 und oft nicht richtig bei 
den älteren SOOer-Modellen. Er ist in zwei verschiedenen Auflösungsstufen möglich: 

Standard-Extra-HalfL3rite: 320x256 (320x200) 

(64 Farben gleichzeitig) 

Interlace-Extra-HalfJBrite: 320x512 (320x400) 

(64 Farben gleichzeitig) 
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Wir haben es also mit einer Variation der niedrigen Auflösung zu tun. In dieser neuen 
Grafikart sind statt der maximal 32 Farben bei 320 x 256 insgesamt 64 verschiedene Farben 
gleichzeitig auf dem Bildschirm möglich. Irgendeinen Haken muß die Sache doch haben, 
oder? Richtig! Zum einen ist dieser Modus recht speicherintensiv, was noch zu verkraften 
wäre. 

Zum anderen sind nicht alle 64 Farben völlig voneinander unabhängig. Die ersten 32 Farben 
(die normale Farbpalette) können Sie ganz normal mit irgendwelchen der 4096 zur Ver¬ 
fügung stehenden Farbmischungen belegen. Da es jedoch nur maximal 32 Farbregister gibt, 
wie wir gesehen haben, resultieren die oberen 32 Farben aus den Farben der unteren Farb¬ 
register. Hierzu teilt der Amiga die Farbintensitäten der unteren 32 Farbregister durch zwei. 
Die oberen 32 Farbregister besitzen also eigentlich die gleiche Farbe wie die unteren, nur 
halb so hell (daher der Name half brite = halb hell). Dabei bezieht Farbregister 32 die Farbe 
aus Register 0, Register 33 aus Register 1 usw. Beachten Sie, daß durch die Halbierung in 
den oberen 32 Farben nur Farbintensitätswerte von 0 bis 7 möglich sind. 

Auflösung und Farborganisation: 

Wir sind bisher noch nicht besonders ausführlich auf die Farbgebung in den einzelnen Auf¬ 
lösungen eingegangen. Das soll hier nachgeholt werden. 

In allen Modi (außer HAM und Half_Brite) können Sie bestimmen, wie viele Farben Sie 
maximal gleichzeitig auf dem Bildschirm darstellen wollen. Dabei haben Sie folgende Werte 
zur Auswahl: 

max. 2 Farben 
max. 4 Farben 
max. 8 Farben 
max. 16 Farben 

max. 32 Farben (nur für niedrige Auflösung) 

Je mehr Farben Sie gleichzeitig darstellen möchten, desto mehr Speicherplatz verschlingt ein 
einziges Bild. Auch die Zeichengeschwindigkeit wird jeweils ein wenig abnehmen. 

Die Farben beziehen sich bekanntlich stets auf die Palettenregister, d.h. ein Punkt mit Farbe 
5 erhält die Farbe, die sich zur Zeit im Palettenregister 5 befindet. Im Bildschirmspeicher muß 
diese Nummer natürlich binär angegeben werden (5 entspräche dann der Bit-Kombination: 
%101). Je mehr Bits für die Farbangabe eines einzelnen Punktes benötigt werden (bei fünf: drei 
Bits), desto mehr Speicher wird insgesamt benötigt. Der Bildschirmspeicher ist nun in soge¬ 
nannten Bildebenen organisiert. 

Jede Bildebene enthält für alle Bildschirmpunkte jeweils ein Bit, das - zusammen mit den Bits 
der anderen Ebenen - die Punktfarbe angibt. Bildebene 0 also gibt alle nullten Bits der Farb- 
registernummer, Bildebene 1 alle ersten Bits usw. an (s. Bild 2.5). 
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Bild 2.5: Bildschirmebenen und Farbkodierung 


Ein Beispiel: Angenommen der oberste linke Punkt des Bildschirms soll seine Farbe aus Palet¬ 
tenregister 5 beziehen. Dann wird in Bildebene 0 im allerersten Bit eine 1 stehen, in Bildebene 
1 eine 0, in Ebene 2 schließlich wieder eine 1. 

Je nachdem, wie viele Farben Sie gleichzeitig darstellen wollen, benötigen Sie eine unter¬ 
schiedliche Anzahl von Bildebenen: 

max. 2 Farben - 1 Bildebene 
max. 4 Farben - 2 Bildebenen 
max. 8 Farben - 3 Bildebenen 
max. 16 Farben - 4 Bildebenen 
max. 32 Farben - 5 Bildebenen 

Jede zusätzliche Ebene verbraucht zusätzlichen Speicherplatz. Der richtet sich natürlich nach 
der Anzahl der darstellbaren Punkte auf dem Bildschirm, also nach der Auflösung. Die folgende 
Tabelle gibt Ihnen den Speicherbedarf einer Ebene in den verschiedenen Auflösungen an: 


Auflösung 

Speicherplatz pro Ebene in Bytes 

320x256 (320x200) 

10240 (8000) 

320x512 (320x400) 

20480 (16000) 

640x256 (640x200) 

20480 (16000) 

640x512 (640x400) 

40960 (32000) 


Tabelle 2.1: Speicherbedarf der Farbebenen in Abhängigkeit von der Auflösung (Werte in Klammer 
gelten für die amerikanische NTSC-Norm) 
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Der normale Workbench-Bildschirm beispielsweise besitzt eine Auflösung von 640x256 
(640x200 in NTSC) Bildpunkten und läßt maximal 4 Farben gleiehzeitig zu. Dazu werden also 
zwei Bildebenen benötigt, die jede eine Größe von 20480 (16000) Byte besitzt, macht zusam¬ 
men einen Bildspeicherbedarf von 40960 (32000) Byte. Schalten Sie über »Preferences« den 
Interlace-Modus ein, dann verdoppelt sich der notwendige Speicher entsprechend. 

Als absoluter Speicherfresser stellt sich dann natürlich ein Interlace-Bild mit 4 Bildebenen 
(max. 16 Farben) in einer Auflösung von 640x512 (320x400) heraus; Speicherbedarf: 163 840 
(128 000) Byte pro Bild. Soviel Speicher besitzen manche moderne Computer nicht eimnal. Ein 
Amiga 500 mit 512 Kbyte Speicher wird da schon ganz schön ins Schwitzen kommen, zudem 
er ja gleich eine Vielzahl von Bildschirmen (Screens) und Auflösungen gleichzeitig verwalten 
und auch gleichzeitig auf dem Monitor darstellen kann. Unter anderem ist deshalb auf kurz oder 
lang an einer Speichererweiterung wohl nicht vorbeizukommen. 

Alle Bilder dürfen sich beim Amiga nur in den untersten 512 Kbyte befinden, sollen sie auf dem 
Bildschirm dargestellt werden. Denn nur auf diesen auch Chip-RAM genannten Speicherbe¬ 
reich haben auch die diversen Custom-Chips Zugriff, die als Coprozessoren u.a. dafür sorgen, 
daß Sie etwas sehen oder daß Ihre Grafiken schneller aufgebaut werden. Somit sind der Anzahl 
von Screens Grenzen gesetzt - wenn auch nicht allzu enge -, auch wenn Sie Ihren Arbeitsspei¬ 
cher erweitern. Programme dürfen sich zwar auch in diesem Bereich tummeln, laufen aber - 
je nach Coprozessoraktivitäten - bis zu 30% langsamer ab, da die 68000-CPU stets auf die 
ebenfalls auf diesen Speicher zugreifenden Coprozessoren warten muß. Ideal wäre deshalb 
natürlich zusätzlicher Speicher - sogenannter Fast-RAM -, in dem die Programme ungestört 
für sich ablaufen können, wie das der Amiga 2000 bereits serienmäßig besitzt. 



Die Farborganisation im HAM-Modus: 

Eine Sonderrolle spielt - wie oben bereits erwähnt - die Farborganisation im Hold-and- 
Modify-Modus. Sie soll im folgenden kurz beschrieben werden: 

Das Prinzip haben wir bereits kennengelernt. Die Farbe eines Punktes wird bestimmt, indem 
die Farbe des davorliegenden Punktes aufgegriffen und in einer der drei Grundfarben variiert 
wird. Wie aber teilen wir dem Rechner solches mit? 
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Nun, die Antwort liegt wieder in der Speicherorganisation eines HAM-Bildes; Jedes HAM- 
Bild besitzt nämlich 6 Bildebenen (Ebenen 0-5). Die ersten vier und die beiden letzten Ebenen 
gehören dabei jeweils zusanunen. Ebenen 4 und 5 geben dabei an, was mit den vier Bits der 
Ebenen 0-3 zu geschehen hat: 


Eb 

4 

me 

5 

Aufgabe der Ebenen 0-3 

0 

0 

Die Bitkombination der Ebenen 0-3 gibt an, aus welchem Palettenregister 
der Punkt die Farbe beziehen soll (Register 0-15). Das enspricht der 
»normalen« Farbgebung. 

0 

1 

Die Bitkombination der Ebenen 0-3 gibt den neuen Intensitätswert für die 
Grundfarbe Blau an. Die Intensitäten für Rot und Grün werden vom Vorpunkt 
übernommen. 

1 

0 

Die Bitkombination der Ebenen 0-3 gibt den neuen Intensitätswert für die 
Grundfarbe Rot an. Die Intensitäten für Blau und Grün werden vom Vorpunkt 
übernommen. 

1 

1 

Die Bitkombination der Ebenen 0-3 gibt den neuen Intensitätswert für die 
Grundfarbe Grün an. Die Intensitäten für Rot und Blau werden vom Vorpunkt 
übernommen. 


Wahlweise können Sie dem HAM-Bild auch nur 5 Bildebenen zuweisen. Die Bits, die sonst 
aus der fehlenden Ebene (Ebene 5) kamen, werden dann vom Rechner als »0« angenommen. 
Ihnen sind dann also nur die Kombinationen 00 und 10 verfügbar. 

Wie oben bereits gesagt, wird der erste Punkt einer Zeile stets in der Hintergrundfarbe erschei¬ 
nen. Sie gehen also stets von dieser Farbe bei Ihren Manipulationen aus. 

Die Farborganisation im Half_Brite-Modus: 

Den ebenfalls bereits beschriebenen Half_Brite-Modus müssen wir genauso wie HAM einer 
Sonderbehandlung unterziehen. Der Aufbau ist allerdings ein wenig einfacher. Zusätzlich zu 
den maximal möglichen fünf Farbebenen der niedrigen Auflösung gesellt sich eine sechste. Das 
ist auch insofern logisch, als wir ja 64 verschiedene Farben kodieren wollen. Diese sechs Farb¬ 
ebenen sind im Half_Brite-Modus vorgeschrieben. Sie können also keine weglassen. 

Mit den einzelnen Bits der sechs Ebenen verfahrt Ihr Rechner ansonsten haargenauso wie in 
den normalen Farbauflösungen. Er ermittelt aus ihnen die Nummer desjenigen Farbregisters, 
aus dem der angesprochene Punkt seine Farbe beziehen soll. Dabei werden die Nummern 
32-63 wie oben beschrieben ebenfalls aus den unteren 32 Palettenregistern gewonnen (aller¬ 
dings mit halber Farbintensität). 
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2.3 Grafikansteuerung in Basic 

Amiga-Basic besitzt bereits eine Anzahl von Befehlen zur Grafikerzeugung oder -mani- 
pulation. Aus diesem Grunde können wir problemlos einfache Grafiken auf den Bildschirm 
bringen. Im Anhang dieses Buches finden Sie eine kurze Zusammenstellung aller wichtigen 
reinen Grafikbefehle des Amiga-Basic. Detaillierte Informationen finden Sie in Ihrem Amiga- 
Basic-Handbuch, das jedem Amiga beigelegt sein sollte. 

Was uns hier u.a. im besonderen interessieren soll, ist der Aufruf der Amiga-internen Biblio¬ 
theksfunktionen aus Basic heraus. Das Betriebssystem unseres Rechners nämlich stellt uns eine 
Reihe von grafischen Funktionen in seiner Graphics-Library (grafische Unterprogramm- 
Bibliothek) zur Verfügung. Teilweise greifen die Basic-Befehle bereits auf dieses Library zu 
(z.B. um eine Linie zu zeichnen oder Flächen zu füllen etc.). 

Einige Funktionen der Graphics-Library sind allerdings auch in Basic nicht implementiert. In 
jedem Fall aber bedeutet der direkte Aufruf der Betriebssystem-Funktionen einen Geschwin¬ 
digkeitsvorteil. 

Hinzu kommt, daß Amiga-Basic mit der Version 1.1 des Betriebssystems rechnet. In der auch 
in Ihrem Rechner implementierten Version 1.2 jedoch sind einige Funktionen, wie das Zeich¬ 
nen von Kreisen oder Ellipsen, hinzugekommen. Amiga-Basic behilft sich hier mit recht lang¬ 
samen eigenen Routinen. 

Zunächst einmal: Was sind überhaupt Libraries? 

Ihr Amiga stellt dem Programmierer zu den verschiedensten Bereichen Funktionen zur Verfü¬ 
gung, mit denen er seinen Rechner steuern, Grafiken erzeugen, Bildschirmfenster kreieren 
oder mathematische Funktionen berechnen kann. Diese Funktionen sind zusammengefaßt in 
mehrere Bibliotheken. Hier die für unsere Belange wichtigsten Libraries; 

Mathematische Bibliotheken: 

- mathffp.library (ROM-resident) 

- mathtrans.library (Disk-resident) 

- mathieeedoubbas.library (Disk-resident) 

Sie enthalten umfangreiche Befehle für Grundrechenarten, Winkelfunktionen usw. Nur 
»mathffp.library« befindet sich direkt im ROM. Die anderen Bibliotheken stehen auf Ihrer 
Workbench-Disk und müssen bei Bedarf erst vom Betriebssystem nachgeladen werden. 

Grafische Bibliothek: 

- graphics.library (ROM-resident) 

Die Grafische Bibliothek enthält elementare Funktionen für Linien, Ellipsen, Flächen und 
sämtliche An i mations-Befehle (Sprites, Bobs...). 
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Intuition-Bibliothek: 

- intuition.library (ROM-resident) 

Sie wird verwendet, um die bekaimte Benutzeroberfäche mit Screens, Windows, Menüs, 
Requesters (Nachfragefenster) usw. auch für eigene Programme zu steuern. 

Multitasking-Systembibliothek: 

- exec.library (ROM-resident) 

Diese Bibliothek steuert alle wesentlichen Systemfunktionen des Rechners bezüglich Multi¬ 
tasking, Speicheraufteilung, Libraryverwaltung etc. 

Daneben existieren noch Bibliotheken wie »exec_support.library«, »clist.library«, »lay- 
ers.library«, »dos.library«, »icon.library« und »diskfont.library«. Das Bibliothekensystem ist 
»offen«, d.h. es können jederzeit eigene Bibliotheken hinzugefügt werden. Das bietet dem Pro¬ 
grammierer natürlich enorme Möglichkeiten für seine Programmentwicklungen. 

Bevor Sie die einzelnen Funktionen einer Bibliothek aufrufen können, muß sie geöffnet wer¬ 
den. Dadurch wird eine eventuell auf Disk liegende Library in den Speicher geladen und die 
Sprungleiste für die jeweiligen Befehle freigegeben. 

In Basic geschieht das durch den Befehl LIBRARY, z.B.; 

LIBRARY "graphlcs.llbrary" 

Hier wird die Grafische Bibliothek geöffnet. Die einzelnen Funktionen sind wie ein normales 
Assemblerprogramm aufzurufen mit CALL, z.B.: 

CALL SetDrMd(adr,mod) 

Das Sprunglabel - in diesem Fall »SetDrMd« - zeigt dabei genau auf die Adresse der anzusprin¬ 
genden Routine, der die in den Klammern stehenden Parameter übergeben werden. 

Mit einem LIBRARY CLOSE werden alle (max. 5) offenen Libraries in Basic wieder 
geschlossen. 

Der Befehl LIBRARY macht aber noch etwas anderes. Damit Amiga-Basic die Namen der ver¬ 
schiedenen Bibliotheksfunktionen (z.B. »SetDrMd«) bekannt sind, lädt es eine sogenannte 
bmap-Datei von der Disk ein, die Informationen darüber enthält, welche Funktionen es gibt, 
wie sie heißen und welche Parameter in welcher Reihenfolge übergeben werden müssen. Für 
die »graphics.library« hieße die zugehörige bmap-Datei »graphics.bmap«. Diese Datei muß 
dann natürlich auch auf Ihrer akmellen Diskette im aktuellen Ordner vorhanden sein, sonst gibt 
es eine Fehlermeldung. 

Damit muß für jede Bibliothek, die Sie von Basic aus aufrufen wollen, eine solche bmap-Datei 
auf der Disk stehen. Schauen Sie einmal auf Ihrer Amiga-Basic-Diskette nach. Im Ordner 
»BasicDemos« befinden sich bereits die Dateien »graphics.bmap« und »exec.bmap«. Diese bei¬ 
den Dateien kopieren Sie also am besten auf Ihre Basic-Arbeitsdiskette. Wie aber erhalten wir 
die übrigen bmap-Dateien? 
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Nun, ebenfalls auf Ihrer Basic-Diskette befindet sich ein Ordner namens »FD1.2«. Von CLI aus 
können Sie sich den Inhalt dieses Ordners auslisten lassen. Dort finden Sie Files mit so wohl¬ 
klingenden Namen wie »mathieeedoubbas_lib.fd« oder »mathieeesingbasjib.fd«. Allen 
gemeinsam ist das Suffix ».fd«. Es handelt sich dabei um reine ASCH-Files. Sie enthalten wie 
die bmap-Dateien alle Informationen über Funktionsnamen, -aufruf und Parameterübergabe 
- diesmal aber editierbar in ASCII. 

Mit Hilfe des Basic-Programmes »ConvertFD« (ebenfalls im »BasicDemos«-Ordner, lesen Sie 
bitte den Programm-Kopf!) können diese fd-Dateien in bmap-Dateien umgewandelt werden. Sie 
brauchen also nur für jede Bibliothek das Programm »ConvertFD« aufzurufen und die richtigen 
Namen einzugeben, und schon haben Sie die passenden bmap-Dateien für alle Bibliotheken (das 
brauchen Sie für »graphics.bmap« und »exec.bmap« natürlich nicht mehr zu tun). 

Am besten machen Sie das gleich einmal und speichern das Ergebnis auf Ihre Arbeitsdiskette, 
so haben Sie alle Bibliotheken gleich parat. 

Die etwa 5(X) Funktionen der verschiedenen Libraries und noch einiges mehr werden übrigens 
in den vier (englischsprachigen) Büchern von Addison Wesley zum Amiga beschrieben: »ROM 
Kernel Reference Manual: Libraries and Devices«, »ROM-Kernel Reference Manual: Exec«, 
»Intuition Reference Manual« und »Hardware Reference Manual«. Im ersten und dicksten 
(Libraries and Devices) finden Sie übrigens eine vollständige Liste aller Bibliotheksfunktionen 
mit Beschreibung, Aufhif und Übergabeparametern. Es ist damit unabdingbare Voraussetzung 
für fortgeschrittenere Programmierer. Sicherlich wird es mit der Zeit adäquate Beschreibungen 
auch anderer Verlage geben (teilweise gibt es sie bereits, s. Anhang). Wenn in diesem Buch 
Gebrauch von den Funktionen gemacht wird, dann werden sie natürlich entsprechend erläutert. 

Hier ein kleines Beispielprogramm, das eine Reihe von Ellipsen auf den Bildschirm bringt. Es 
erscheint hier in zwei Versionen. Zum ersten mit dem originalen Basic-Befehl CIRCLE, zum 
zweiten mit der Graphics-Funktion DrawEllipse(). Vergleichen Sie einmal die Zeichen¬ 
geschwindigkeiten : 

Programm 1: 

FOR x=l TO 400 STEP 2 

xc^ = X 

= 40*SIN(x/30)+100 
CIRCLE (xc?,yc^),50,,,,.6 
NEXT X 

Programm 2: 

LIBRARY "graphics.library" 

FOR x=l TO 400 STEP 2 

Xcfo = X 

ya% = 40»SIN(x/30)+100 

CALL DrawEIllpse(WINDOW(8),xc?,yc?,50,35) 

NEXT X 


LIBRARY CLOSE 
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Bild 2.7: DrawEllipse in Amiga-Basic 


In diesem Zusammenhang müssen wir noch auf die Programmierung der Screens (Bild¬ 
schirme) und Windows (Fenster) eingehen. Diese Aufgabe gestaltet sich unter Amiga-Basic 
besonders einfach: Der Befehl SCREEN initialisiert einen neuen Bildschirm beliebiger Auflö¬ 
sung und Farbenzahl und weist ihm eine Kennziffer zu. Mit SCREEN CLOSE kann der Bild¬ 
schirm wieder geschlossen werden (s. Amiga-Basic-Handbuch). Leider ist es unter Amiga- 
Basic zur Zeit nur möglich, Bildschirme mit maximal 200 Zeilen (400 im Interlace-Modus) 
zu erzeugen. 

Grafikausgaben beziehen sich in Basic jedoch stets auf ein Fenster. Also müssen wir innerhalb 
des neuen Screens auch ein neues Fenster öffnen. Das erreichen wir durch Einsatz des Befehles 
WINDOW. WINDOW öffnet ein Fenster wählbarer Größe. Sie können dem Befehl sowohl die 
Kopfzeile als auch die Bestückung mit den verschiedenen Gadgets (Schließ-Knopf, Ver¬ 
größerungs-Knopf etc.) angeben. Jedes Fenster bezieht sich auf die Screen-Kennziffer des Bild¬ 
schirms, in dem es geöffnet werden soll. Auch ein Fenster erhält eine entsprechende Kennziffer, 
die benötigt wird, um die Ausgabebefehle richtig zu leiten. Beispiele zur Programmierung von 
Screens und Windows werden wir zur Genüge in den späteren Kapiteln dieses Buches antreffen. 
Auch Fenster haben in Amiga-Basic maximal 200 Zeilen (400 im Interlace-Modus). 

Aktuelle Informationen über das momentane Ausgabefenster erhalten Sie durch die wichtige 
Basic-Funktion WINDOW(n) (n bestimmt dabei die Art der Information, die wir erfragen 
wollen). Schauen Sie hierzu bitte in Ihrem Handbuch nach. Besonders interessieren uns die 
Werte 7 und 8 für n: 

WINDOW(7) übergibt uns die Adresse eines Datensatzes (in C auch Struktur genannt), der 
ständig die aktuellen Eigenschaften des Fensters enthält (teilweise auch mit anderen WIN- 
DOW()-Aufrufen erfahrbar), so z.B. die momentane Maus-Cursor-Position etc. Diese Adresse 
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muß bei vielen Fenster-Operationen der Intuition-Library angegeben werden. Für weitere 
Informationen empfehle ich die Lektüre des »Intuition Reference Manual« (s.o.). 

WINDOW(8) teilt uns die Adresse eines weiteren Datensatzes mit: RastPort. RastPort ist eine 
sehr wichtige Zusanunenfassung von Variablen und Eigenschaften von Fensterinhalten. Er gibt 
Auskunft über den aktuellen Grafikspeicher, der für das jeweilige Fenster reserviert wurde etc. 
Für jedes Fenster existiert ein solcher RastPort. WINDOW(8) teilt uns die Adresse für das 
aktuelle Ausgabefenster mit. Für uns ist WINDOW(8) nur deshalb wichtig, da diese Adresse 
als Übergabeparameter bei fest jeder Funktion der Graphics-Library angegeben werden muß, 
damit das Betriebssystem weiß, in welches Fenster es zeichnen soll. Die Anwendung können 
Sie dem obigen Ellipsen-Beispiel entnehmen. 


24 Grafikansteuerung in C 

Bevor Sie dieses Kapitel lesen, sollten Sie sich kurz einmal mit der Grafikansteuerung in Basic 
beschäftigen, da sich vieles auch auf C übertragen läßt. 

Die Ansteuerung von Grafik, Screens und Windows gestaltet sich in C aufgrund der vielen 
Deklarationen ein wenig komplizierter als in Basic. Im Prinzip läuft aber vieles genauso ab. 
Die Standard-Libraries brauchen Sie natürlich nicht mehr selbst zu schaffen. Sie stehen auf 
Ihrer C-Diskette und werden vom Linker automatisch eingelinkt. Aufgrund der Vielzahl von 
Strukmren, die Sie zum Aufrufen der Library-Routinen benötigen (als Übergabeparameter) 
und die teilweise aktuelle Systemzustände widerspiegeln, existieren eine Reihe von Include- 
Files für jede Bibliothek (sie sind auf Ihrer C-Diskette am Suffix ».h« zu erkennen). Sie enthal¬ 
ten die Initialisierungen für die verschiedensten Strukturen und definieren verschiedene Prä¬ 
prozessoranweisungen. Am besten listen Sie alle Include-Files einmal aus und heften sie geord¬ 
net ab. So können Sie jederzeit Strukturnamen und -inhalte etc. nachschlagen. Sie finden die 
kommentierten Include-Files aber auch in den vier erwähnten Büchern von Addison Wesley im 
vorhergehenden Abschnitt. 

Alle C-Programme in diesem Buch laufen, das haben wir bereits in der Einleitung erwähnt, 
sowohl auf dem Aztek C-Compiler als auch mit dem Lattice-Compiler ab der Version 3.10. 
Damit das gewährleistet ist, müssen Sie allerdings einige Dinge beachten: 

Zum Aztek-Compiler: 

Die Version, die dem Autor zur Verfügung stand und für die die Garantie übernommen werden 
kann, daß alles funktioniert, lautet: V3.4a. Normalerweise sollten aber auch bei anderen Ver¬ 
sionen keine Probleme auftauchen. Kompilieren und assemblieren können Sie auf ganz nor¬ 
male und gewohnte Art und Weise. Das so entstandene Objekt-File (Endung ».o«) muß dann 
nur noch mit den Libraries gelinkt werden. Verwenden Sie dabei folgende Link-Syntax: 

ln fllename.o -Ic -Im 

Damit werden die normalen Library-Funktionen und die FFP-Library zusammengelinkt. 
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Zum Lattice-Compiler: 

Bis auf das Ray-Tracing-Progranun werden alle anderen C-Programme anstandslos von allen 
Lattice-Versionen kompiliert. Da die Einbindung der FFP-Fließkonunaroutinen aber erst seit 
der Version V3.10 problemlos funktioniert, müssen Sie das Ray-Tracing-Programm - sollten Sie 
in Besitz einer niedrigeren Version sein - erst ein wenig umschreiben. 

Kompilieren Sie ab V3.10 grundsätzlich mit den folgenden Befehlssequenzen: 

Icl -f -iiinclude/ -i:include/lattice filenarae.c 
lc2 fllename 

blink llb:c.o+filename.o LIBRARY lib:lc.lib+ 
lib:amiga.lib+llb:lcmffp.lib TO filename 

Es kann sein, daß Sie statt lib:c.o das Objektfile lib:lstartup.obj einlinken müssen. 

Das folgende kleine Demo-Programm soll Ihnen die Programmierung von Screens, Windows 
und Grafik ein wenig näher bringen: 

/»«llÄltll******»»**!!*!!**»***»!!***!!»****»*/ 

/K» *»/ 

/** Programmierung von Screens, »*/ 

/** Windows und Grafik in C »*/ 

/*:¥: *»/ 


# include < exec/types .h> 

#include <intuition/Intuition.h> 

/* Funktionsdeklarationen (nur für Aztek-C-Compiler): */ 
/¥: wahlweise auch: # Include <functions.h> */ 

/ll**lfll*lt***lf*»lflHtlUl***KltK**K»**lfll**Klt**lf***lt*lfll**ltlflt***/ 


VOID 

CloseLibraryO; 

VOID 

CloseScreenO; 

VOID 

CloseWindowO; 

VOID 

Draw(); 

VOID 

Exit(); 

struct Message * 

GetMsgO; 

VOID 

Move(); 

struct Library » 

OpenLlbraryO; 

struct Screen it 

OpenScreenO; 

struct Window n 

OpenWlndow(); 

VOID 

RectFillO; 

VOID 

ReplyMsgO; 

VOID 

SetAPen(); 

VOID 

SetDrMdQ; 
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LONG TextO; 

LONG WaitO; 


struct IntultionBase j^IntuitionBase; 
struct GfxBase »GfxBase; 


Struktur für 

■uct TextAttr 

neuen Font Initialisieren: 

NeuerFont = 


"topaz.font", 

/* Name des Fonts 

*/ 

T0PAZ_SIXTY, 

/* Fontgröße 

»/ 

FS_N0RMAL, 

A Stil 

*/ 

FPF_R0MF0NT, 

A Voreinstellungen */ 


/* Struktur für einen neuen Bildschirm 
initialisieren (kann natürlich auch 
Innerhalb des Programmes erfolgen): 
*/ 

struct NewScreen NeuerBlldschlrm = 


0, 

/* 


/* 

0, 

/* 


/» 

320 , 

/» 

256, 

/» 

2, 

/* 

0, 

/* 

1, 

/* 

NULL, 

/* 

CUSTOMSCREEN, 

/* 

&NeuerFont, 

/* 

"Demo-Bildschirm ", 


NULL, 

h 

NULL, 



x-Koord. linke obere */ 

Ecke (immer 0) */ 

y-Koord. linke obere 
Ecke *:/ 

Bildschirmbreite 
Bildschirmhöhe */ 

Bildebenenzahl */ 

Farbe der Details */ 

Farbe der Flächen 
Grafikmodus: 320x200 */ 

Bildschirmtyp */ 

Zeiger auf eigenen Font */ 

Text im Bildschirm-Kopf */ 

unbenutzt, immer NULL */ 

keine eigene BltMap 


/* Struktur für ein neues Fenster Initialisieren: >/ 
struct NewWlndow NeuesFenster = 
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20, 

/* 

x-Koord. linke obere Ecke 


20, 

/*: 

y-Koord. linke obere Ecke 

*/ 

o 

o 

/* 

Fensterbreite 

*/ 

100, 

/* 

Fensterhöhe 


0, 

/* 

Farbe der Details 

*/ 

1, 

/* 

Farbe der Flächen 

»/ 

CLOSEWINDOW 1 

/* 

Rückmeldung bei: 


NEWSIZE, 

/* 

Fenster zu, Fenstergröße 



/* 

geändert 


WINDOWCLOSE 1 

/* 

Fensterelemente und -typ 


SMART_REFRESH 1 

/* 

wählen 

*/ 

ACTIVATE 1 




WINDOWSIZING 1 




WINDOWDRAG 1 




WINDOWDEPTH 1 




NOCAREREFRESH 1 




GIMMEZEROZERO, 




NULL, 

/* 

keine eigenen Gadgets 


NULL, 

/* 

CheckMark 


"Demo-Fenster ", 

/* 

Text im Fenster-Kopf 


0, 

h 

Adresse Screen-Struktur 

*/ 


/* 

Muß innerhalb des 




Programmes nach dem 



/* 

Öffnen eines Screens 

*/ 


/* 

initialisiert werden 

*/ 

NULL, 


kein SuperBitmap-Fenster 

*/ 

100, 

/* 

Mindestbreite 

*/ 

25, 

/* 

Mindesthöhe 


320 , 

/* 

Maximalbreite 

*/ 

256, 

/* 

Maximalhöhe 


CUSTOMSCREEN, 

/* 

Bildschirmtyp 

*/ 


maln() 

[ 

struct Screen i^Bildschirm; 
struct Window «Fenster; 
struct IntulMessage «Meldung; 
struct RastPort «rasterport; 

LONG i; 

LONG fensterbreite, 

fensterhoehe; 

ULONG dass; 
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/* Öffnen der Intuition- und der Graphics- » 

X Bibliotheken. Die Funktion OpenLlbrary() x 

X gibt einen Pointer auf die Bibliothek zurück, x 

X der gespeichert werden muß, damit das x 

X C-Programm darauf zugreifen kann. Ist dieser x 

X Pointer gleich Null, dann liegt ein Fehler vor: x 

*/ 

IntultlonBase = 


(struct IntultlonBase x)OpenLibrary("Intuition.llbrary",OL); 

If (IntultlonBase == NULL) Exit(FALSE); 

GfxBase = 

(struct GfxBase x)OpenLibrary("graphlcs.llbrary",OL); 
if (GfxBase == NULL) 

[ 

CloseLlbrary(IntultlonBase); /x Intuition-Library dose x/ 
Exlt(FALSE); /x Ausgang x/ 


/X Nun wird der Bildschirm geöffnet. Die Funktion x 

X OpenScreenO gibt dabei einen Pointer auf die x 

X aktuelle Screen-Struktur aus, die wir uns merken x 
X müssen. Ist er Null, liegt ein Fehler vor: x 

*/ 

Bildschirm = 

(struct Screen x)OpenScreen(&NeuerBlldschirm); 
if (Bildschirm == NULL) 

[ 

CloseLibrary(GfxBase); /x Graphlcs-Library dose x/ 

CloseLlbrary(IntultlonBase); /x Intuition-Library dose x/ 

Exlt(FALSE)j /X Ausgang x/ 

] 


/X Ein Fenster wird durch OpenWlndow geöffnet. Die x 

X Funktion liefert einen Pointer auf die aktuelle x 

X Window-Struktur. Ist er Null, liegt ein Fehler vor: x 
*/ 

NeuesFenster.Screen = Bildschirm; /x Adresse der Bildschirm¬ 
struktur setzen x/ 

Fenster = 

(struct Window x)OpenWlndow(&NeuesFenster); 
if (Fenster == NULL) 
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CloseScreen(Blldschirm); 
CloseLlbrary(GfxBase); 
CloseLibrary(IntultionBase); 
Exlt(FALSE); 


/» Bildschirm schließen 
/# Graphics-Library close */ 
/* Intuition-Library close */ 


/* Damit befindet sich ein neues Fenster in einem * 

* neuen Bildschirm. Jetzt wird zur Demonstration * 

* eine kleine Grafik mit Text ausgegeben: * 

*/ 

/* Adresse des Rasterports: */ 
rasterport = Fenster->RPort; 

do 


fensterbreite = Fenster->Width - 1; 
fensterhoehe = Fenster->Height - 1; 

SetAPen(rasterportj 2L); /* Zeichenfarbe setzen */ 

SetDrMd(rasterport, (LONG)JAMl);/» Zeichenmodus auf JAMl */ 

for (i=0; i < fensterbreite+1; i=i+3) 

( 

/» Grafikcursor positionieren und Linie zeichnen: */ 

Move(rasterport, fensterbreite-i, fensterhoehe); 
Draw(rasterport, i, OL); 


for (i=0; i < fensterhoehe+1; i=i+3) 

( 

/* Grafikcursor positionieren und Linie zeichnen: */ 
Move(rasterport, fensterbreite, i); 

Draw(rasterport, OL, fensterhoehe-i); 


/* Text einschreiben: */ 

SetDrMd(rasterport, (L0NG)JAM2); /* Zeichenmodus auf JAM2 »/ 
Move(rasterport, fensterbreite/2-45L, fensterhoehe/2+3L); 

Text(rasterport, "Fensterdemo",IIL); 
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/* Auf Message warten: */ 

Walt(lL << Fenster->UserPort->mp_SigBit); 


/* Empfangene Meldung bearbeiten: */ 
Meldung = (struct IntulMessage *) 


GetMsg(Fenster->UserPort); 

/* Meldeadresse 


dass = Meldung->Class; 


Art der Meldung 

*/ 

ReplyMsg(Meldung); 

/X Meldung quittieren »/ 

if ((dass & NEWSIZE) != 0) 

/* 

Fenstergröße wurde*/ 


/* 

verändert! 


SetAPen(rasterport, OL); 

/* 

Zelchenfarbe=0 


SetDrMd(rasterport, (LONG)JAMl); 

A 

Zeichenmodus: JAMl*/ 

RectFill(rasterport, OL, OL, 

/* 

Fenster löschen 


fensterbreite, fensterhoehe); 

] 


] whlle ((dass & CLOSEWINDOW) == 0); 

/* 

bis Fenster 



/* 

geschlossen 


CloseWlndow(Fenster); 

/* 

Fenster schließen 

*/ 

CloseScreen(Blldschirm); 

/* 

Bildschirm ebenso 


CloseLlbrary(GfxBase); 

/* 

Graphics-Library 


CloseLibrary(IntultlonBase); 

/* 

Intuition-Library 

*/ 

Exlt(TRUE); 

/* 

Ausgang 

*/ 


Dieses Programm öffnet in einem neuen 320x200-Bildschirm ein Fenster, in dem eine Grafik 
und ein Text ausgegeben werden. Das Fenster ist frei beweglich und kann von Ihnen vergrößert 
bzw. verkleinert werden, wobei sich der Fensterinhalt stets an die neue Größe anpaßt. Um das 
Programm zu beenden, betätigen Sie einfach das CLOSER-Gadget (schließen also das Fenster). 

Da wir mit den Exec-, Graphics- und Intuition-Libraries arbeiten wollen, benötigen wir zur 
Definition der verschiedenen Strukturen die Include-Files »exec/types.h« und »intuition/intui- 
tion.h«. Letzeres lädt die notwendigen Include-Files für die Graphics-Library automatisch 
nach. 

Jetzt beginnt die Definition globaler Variablen und Strukturen. Hier sind zunächst die Pointer 
»*IntuitionBase« und »»GfxBase« zu nennen, die die Zeiger auf Strukturen liefern, die für jede 
Library angelegt werden. Sie werden später u.a. dafür genutzt, die Libraries wieder zu 
schließen. 

Als nächstes wird die Struktur für einen neuen Zeichensatz initialisiert. Der Zeichensatz wird 
bei Bedarf automatisch nachgeladen. Da wir einen neuen Bildschirm öffnen wollen, müssen 
wir dem Betriebssystem gleichfalls eine Struktur für diesen neuen Bildschirm vorbereiten. Hier 
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Bild !&•. Screens, Windows, Grafik in C 


geben wir die unterschiedlichen Merkmale (Auflösung, Größe, Farbenzahl, Font etc.) an, die 
er später annehmen soll. Wir hätten diese Struktur natürlich auch im Programm initialisieren 
können, indem wir jedem einzelnen Feld den entsprechenden Wert zugewiesen hätten. So geht 
es natürlich viel einfacher. Außerdem brauchen wir auf diese Weise die vielen Feldnamen nicht 
zu wissen (die bekanntlich hei der Strukturdefmition stehen, also in den Include-Files). 

Äh nlich verfahren wir mit der erforderlichen NewWindow-Struktur. Dort allerdings müssen 
wir mindestens einen Parameter später einsetzen. Es ist dies die Adresse der zugehörigen 
Screen-Struktur, die wir erst nach dem eigentlichen Öffnen des Bildschirms erfahren. In dieser 
Struktur müssen wir eine Reihe von Flags angeben. Wir wählen hier zwei Rückmeldeflags 
(IDCMP-Flags). Unserem Programm soll also mitgeteilt werden, wenn der Benutzer das 
Fenster schließt (CLOSEWINDÖW) und wenn er es vergrößert bzw. verkleinert (NEWSIZE). 
Die Fensterart geben wir mit einem anderen Flag an. Unser Fenster besitzt demnach ein 
Schließ-Gadget (WINDÖWCLOSE), ein Gadget zur Größenänderung (WINDÖWSIZING), 
zur Änderung der Fensterüberlagerungstiefe (WINDOWDEPTH) und es kann frei positioniert 
werden (WINDÖWDRAG). Ferner wurde SMART_REFRESH eingeschaltet (Fensterinhalt 
muß nur bei Vergrößerung/Verkleinerung erneuert werden), ACTIVATE (Fenster ist nach dem 
Öffnen aktiv), NOCAREREFRESH (keine Refresh-Meldungen erwünscht). Gleichzeitig ist 
unser Fenster ein sogenanntes Gimmezerozero-Fenster, d.h. innerhalb des Fensters wird noch 
ein unsichtbares zweites Fenster geöffnet. Es umfaßt den gesamten Fensterbereich, außer die 
Bereiche, die durch Gadgets etc. eingenommen werden. Grafikausgaben können so relativ zu 
diesen Fensterausmaßen vorgenommen werden, wodurch wir verhindern, Gadgets etc. zu über¬ 
malen. 

















38 Grafikgrundlagen fiir den Amiga 


Dann kann es auch schon losgehen. Nach der Initialisierung der erforderlichen lokalen Struktu¬ 
ren und Variablen versuchen wir die beiden Libraries Intuition-Library und Graphics-Library 
mit der Exec-Funktion OpenLibrary( ) zu öffiien (die Exec-Library ist bereits nach dem Pro¬ 
grammstart offen, braucht also von uns nicht mehr geöffnet zu werden). Die rückgemeldeten 
Pointer merken wir uns für später. Ist dieser Pointer allerdings gleich Null, so hat irgend etwas 
nicht hingehauen (z.B. zu wenig Speicher, die Bibliothek ist nicht verfügbar, weil sie z. B. nicht 
auf Disk steht und nachgeladen werden muß etc.). In diesem Fall beenden wir unser Programm 
einfach mit der Funktion exit( ), wobei wir natürlich nicht vergessen dürfen, eventuell offene 
Libraries zu schließen. 

Das Öffnen des Bildschirms mit OpenScreen( ) und des Fensters mit OpenWindow( ) geht 
völlig analog vonstatten. Diesen beiden Funktionen müssen Sie lediglich einen Zeiger auf die 
oben initialisierten Strukturen übergeben (NeuerBildschirm bzw. NeuesFenster). Zurück 
bekommen wir dann den Zeiger auf die interne Bildschirm- bzw. Fensterstruktur. Beachten Sie, 
daß wir vor dem Öffnen des Fensters noch schnell die Adresse der Bildschirmstruktur einge¬ 
setzt haben. 

Damit haben wir es geschafft, ein Fenster in einem neuen Bildschirm zu öffnen. Damit wir auch 
etwas davon haben, zeichnen wir nun eine kleine Grafik ein. Viele Grafikfunktionen benötigen 
die Angabe eines Pointers, den wir in der internen Fenster-Struktur finden, den Rasterport. Der 
Rasterport ist eine Struktur, die - vereinfacht ausgedrückt - dem Betriebssystem angibt, wo 
es hinzeichnen soll (in welches Fenster etc.). In unserem Programm übernehmen wir diesen 
Pointer der Einfachheit halber in die Variable »rasterport«. 

Nun können die verschiedenen Grafikfunktionen eingesetzt werden. Am Ende unserer Zeich¬ 
nungen müssen wir nun auf eine Reaktion des Anwenders warten. Dies geschieht mit der Exec- 
Funktion Wait( ), die auf eine Meldung im Message-Port des Fensters wartet (während des 
Wartens können andere Prozesse und Task arbeiten). Wie das genau funktioniert, würde hier 
den Rahmen sprengen und sollte von Ihnen nachgelesen werden. Die Art der Meldung finden 
wir jedenfalls im User-Port des Fensters. Wir übernehmen sie in die Variable »dass« und quit¬ 
tieren die Meldung mit ReplyMsg(). 

Nun können wir - je nach Art der Meldung - reagieren. Wurde das Fenster vom Benutzer ver¬ 
größert oder verkleinert (NEWSIZE), so löschen wir den Fensterinhalt und zeichnen alles neu. 
Wurde das Schließ-Gadget angeklickt (CLOSEWINDÖW), so bedeutet das für uns; 
Programmende. Wir schließen Fenster, Bildschirm und Libraries (Reihenfolge beachten!) und 
beenden mit Exit(). 

In die Strukturen für neue Bildschirme und Fenster können wir eine Reihe von Flags einsetzen, 
wie wir gesehen haben. Im folgenden haben wir alle möglichen Flags für diese beiden Struktu¬ 
ren einmal kurz zusammengestellt. Jeder Flag-Name stellt eine Bit-Kombination dar. Wollen 
Sie zwei oder mehr Flags gleichzeitig setzen, so sind sie mit ODER (in C also: »I«) zu verknüp¬ 
fen (s. Beispielprogramm). Wie die einzelnen Strukturen aussehen - insbesondere auch die 
eigentlichen Bildschirm- und Fenster-Strukturen (struct Screen und struct Window), die durch 
den Aufruf von OpenScreen() bzw. OpenWindow() initialisiert werden - können Sie den ver¬ 
schiedenen Include-Files auf Ihrer C-Compiler-Diskette entnehmen. Hier also die Tabellen: 
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a) Die Flags für die Bildschirmstruktur: 
ViewModes (Grafikmodi): 


NULL - Niedrig aufgelöste Grafik 320 Punkt/Zeile 

HIRES - Hoch aufgelöste Grafik 640 Punkte/Zeile 

LAGE - Einschalten des Interlace-Modus 

HAM - Einschalten des Hold-and-Modify-Modus 

EXTRA_HALF_BRITE - Einschalten des Extra-Half_Brite-Modus 

DUALPF - Dual-Playfield-Modus: Ein Spezialmodus, in dem eine Grafik 


durch eine andere hindurchscheint 

PFBA - Flag für Dual-Playfield. Es legt fest, welche der zwei Grafiken 

durch die andere hindurchscheint 

SPRITES - In dem Bildschirm sollen Sprites verwendet werden 

VP_HIDE - Der Bildschirm wird erzeugt, aber nicht auf dem Monitor dar¬ 

gestellt 

GENLOCK_VIDEO - Spezialmodus für ein Genlock-Interface. Ein Videobild scheint 

durch eine Grafik 


ScreenTypes (Bildschirm-Arten): 


WBENCHSCREEN 

CUSTOMSCREEN 

SHOWTITLE 

BEEPING 

CUSTOMBITMAP 


- Workbench-Screen 

- Unabhängiger neuer Bildschirm 

- Anzeigen der Titelleiste 

- Flag wird von Intuition gesetzt, wenn der Bildschirm blinkt 

- Es wird eine eigene BitMap verwendet 


b) Die Flags für die Fensterstruktur: 

IDCMP-Flags (Intuition-Mitteilungsflags): 

Die IDCMP-Flags setzen Sie in der Fensterstruktur, wenn Ihr Programm benachrichtigt 
werden soll, falls ein bestimmtes Ereignis eintritt. Auf ein beliebiges Ereignis warten Sie 
mit der Funktion Wait() (s. Beispielprogramm). Welches Ereignis tatsächlich eingetreten 
ist, erfahren Sie im Class-Feld der Struktur IntuiMessage (s. ebenfalls Beispielprogramm). 
Hier wird noch einmal das IDCMP-Flag des verantwortlichen Ereignisses gesetzt. Die ein¬ 
zelnen Informationen zu dem Ereignis finden Sie - je nach Art der Meldung - in den ver¬ 
schiedenen anderen Strukturfeldern wie Code, MouseX, MouseY etc. Hier sind nun die 
Flags: 

MOUSEBUTTON - Meldung, falls ein Mausknopf betätigt wurde. Welcher Maus¬ 
knopf betätigt wurde, steht im Code-Feld der IntuiMessage- 
Struktur (SELECTDOWN, SELECTUP, MENUDOWN, 
MENUUP) 

MOUSEMÖVE - Meldung, felis die Maus bewegt wurde (nur zusammen mit 

REPORTMOUSE zu setzen) 
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DELTAMOVE 

GADGETDOWN 

GADGETUP 

CLOSEWINDOW 

MENUPICK 

MENUVERIFY 

REQSET 

REQCLEAR 

REQVERIFY 

NEWSIZE 

REFRESHWINDOW 

SIZEVERIFY 

ACTIVEWINDOW 

INACTIVEWINDOW 

RAWKEY 

NEWPREFS 

DISKINSERTED 

DISKREMOVED 

INTUITICKS 


Fenster-Flags: 

WINDOWSIZING 

WINDOWDRAG 

WINDOWDEPTH 

WINDOWCLOSE 

SIZEBRIGHT 

SIZEBBOTTOM 

SMART_REFRESH 

SIMPLE_REFRESH 


SUPER_3ITMAP 

BACKDROP 

REPORTMOUSE 


- wie MOUSEMÖVE. Es werden allerdings relative Maus¬ 
koordinaten übermittelt 

- Meldung, wenn ein Gadget angeklickt wurde 

- Meldung, wenn ein Gadget losgelassen wird 

- Meldung, wenn das Fenster geschlossen wurde 

- Meldung, weiui Menüpunkt selektiert wurde. Der Menüpunkt 
steht im Code-Feld der IntuiMessage-Struktur 

- Meldung, wenn der Benutzer einen Menüpunkt selektieren 
möchte (Meldung vor der Selektion) 

- Meldung, wenn sich der erste Requester im Fenster öffnet 

- Meldung, wenn sich der letzte Requester im Fenster schließt 

- Meldung, bevor sich der erste Requester im Fenster öffnet 

- Meldung, wenn die Fenstergröße verändert wurde 

- Meldung, wenn Teile des Fensters erneuert werden müssen 

- Mitteilung, wenn der Benutzer ein Fenster vergrößern möchte 
(Mitteilung bevor er es vergrößert!) 

- Meldung, wenn Fenster aktiviert wird 

- Meldung, wenn Fenster deaktiviert wird 

- Meldung bei Tastendruck 

- Meldung, wenn die Preferences geändert wurden 

- Meldung, wenn eine Diskette eingeschoben wurde 

- Meldung, wenn eine Diskette entnommen wurde 

- Inrnition-Timermeldung (ca. lOmal die Sekunde) 


- Das Fenster soll ein Vergrößerungs-Gadget besitzen 

- Das Fenster soll verschoben werden können 

- Das Fenster soll Tiefenwechsel-Gadgets besitzen 

- Das Fenster soll ein Schließ-Gadget besitzen 

- Das Größen-Gadget soll am rechten Rand liegen 

- Das Größen-Gadget soll am unteren Rand liegen 

- Das Fenster wird nach einer Überlagerung durch andere Fen¬ 
ster automatisch wiederhergestellt 

- Nach einer Überlagerung durch andere Fenster muß das Pro¬ 
gramm die Wiederherstellung der überlagerten Bildschirmteile 
selbst vornehmen 

- Das Fenster ist nur ein Ausschnitt einer großen Grafik (Super- 
Bitmap) und wird automatisch refreshed etc. 

- Hintergrundfenster (liegt stets hinter allen anderen Fenstern) 

- Jede Mausbewegung soll gemeldet werden (s. auch IDCMP- 
Flags) 



GIMMEZEROZERO 

BORDERLESS 

ACTIVATE 

WINDOWACriVE 

INREQUEST 

MENUSTATE 

NOCAREREFRESH 
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- Innerhalb eines Fenster wird ein zweites unsichtbares Fenster 
eröffnet. Alle Grafikkoordinaten beziehen sich dabei auf das 
innere Fenster. Vorteil: Die Koordinaten z.B. 0,0 liegen nicht 
mehr im Rahmenteil des Fensters. 

- Fenster wird ohne Rahmen dargestellt 

- Fenster wird aktiviert, sobald es geöffnet ist. 

- Dieses Flag wird von Intuition gesetzt, wenn das Fenster das 
aktive Fenster ist 

- Dieses Flag wird von Intuition gesetzt, wenn sich das Fenster 
im Request-Modus befindet 

- Dieses Flag wird von Intuition gesetzt, wenn das Fenster mit 
eingeschalteten Menüs aktiv ist 

- Keine Meldung, wenn Refresh durchgeführt wird. 






Kapitels 
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Bevor wir uns in die räumliche Welt mit allen ihren Höhen und Tiefen stürzen, sollten wir uns 
zunächst einmal die wesentlichen Grundlagen unter zwei Dimensionen anschauen. Vieles läßt 
sich dann später nämlich sehr viel einfacher auf die dreidimensionalen Gegebenheiten über¬ 
tragen. 

Manche Dinge sind Ihnen sicher bereits bekannt. Das ist auch gut so. Denn wir wollen ja von 
bekannten Dingen ausgehend das Unbekannte erforschen. Gleichzeitig werden wir die mathe¬ 
matischen Grundlagen schaffen, auf die wir später nicht mehr verzichten können. Grafik ist 
Mathematik! Das ist eine Tatsache, die nicht nur Ihnen sicher übel aufstoßen wird. Erinne¬ 
rungen an dunkle Schulzeit wollen nicht gern angekratzt werden. 

Bekommen Sie nun aber keinen Schreck! Es gibt Mittel und Wege, auch öde gelehrte Schul¬ 
mathematik kurz und vor allem - und das ist der Unterschied zur Schule - verständlich zu 
beschreiben. 

Doch fallen wir nicht gleich mit der Türe ins Haus. Gehen wir das Ganze einmal ruhig an und 
beginnen mit: 


3.1 Die grafischen Grundelemente: 

Punkt, Linie, Kreis, Ellipse 

Bevor wir uns nämlich ins Getümmel werfen, wollen wir uns noch ein wenig mit den Grund¬ 
elementen jeder Grafik vertraut machen. Ganz zuoberst ist da natürlich der Punkt zu nennen. 
Da sich der Bildschirm unseres Rechners - was nicht selbstverständlich ist - aus einzelnen 
Punkten zusammensetzt, stellt der Punkt zwangsläufig die kleinste Grafikeinheit dar. Jede 
Linie, jeder Kreis, jede andere Figur besteht letztendlich aus vielen kleinen farbigen Punkten. 

Das heißt allerdings nicht, daß Punkte die handlichsten Grafikeinheiten sind. Viel effektiver 
und auch bequemer ist es vielmehr, seine Grafiken aus Linien zusammenzusetzen. Und davon 
wird überall auch reger Gebrauch gemacht. Linien zu zeichnen geht recht schnell. Sie sind 
sowohl mathematisch als auch grafisch einfach zu handhaben, kurz, sie sind das Grafikwerk¬ 
zeug. 

Da es bereits einen erheblichen Aufwand bedeutet, Kreise oder gar Ellipsen in akzeptabler 
Geschwindigkeit zu zeichnen, finden wir die Figuren in fast jedem Befehlssatz eines guten 
Basic-Interpreters. Selbst einige Betriebssysteme (wie Intuition VI.2) sind in Besitz solcher 
Algorithmen. 

Das folgende Basic-Programm soll Dinen einige hübsche Beispiele für die Anwendung dieser 
Grafikfiguren demonstrieren. Zum Thema Ellipsen beachten Sie bitte auch das im Kapitel 
»Grafikansteuerung in Basic« Gesagte. 
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' ** »» 

' Punkte, Linien, *x 

' ** Kreise, Ellipsen ** 

' »* 

' Punkte: 

COLOR 2,0 
FOR x=0 TO 639 
PSET (x,50*SIN(x/40)+100) 
NEXT X 

WHILE INKEY$="" 

SLEEP 

WEND 
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Bild 3.2: Linien 


' Linien: 

COLOR 3,2 
CLS 

FOR x=0 TO 550 STEP 2 

xl = X 

yl = 40*SIN(x/40)+60 
x2 = 200*SIN(x/40)+250 
y2 = 80*SIN(x/50)+90 
LINE (xl,yl)-(x2,y2) 
NEXT X 

WHILE INKEY$="" 

SLEEP 

WEND 


' Kreise und Ellipsen: 


COLOR 3,0 
CLS 










Wir fangen klein an: 2-D-Operationen 47 



Bild 3.3: Kreise und Ellipsen 


FOR x=l TO 40 STEP .7 

CIRCLE (260,90),40+5*x,,,,100/x''2 
NEXT X 

WHILE INKEY$="" 

SLEEP 

WEND 


'Und noch einmal Punkte; 

COLOR 2,0 

CLS 

FOR x=l TO 250 
FOR y=-100 TO 100 
w = ATN(y/x) 
r = SQR(x»x+y^(y) 
h = .5 + .5*SIN(2*w+L0G(r)*10) 
IF h>=RND(l) THEN 
PSET (250-x,100+y) 

PSET (249+x,100-y) 
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END IF 
NEXT y 
NEXT X 

WHILE INKEY$="" 
SLEEP 
WEND 



Bild 34: Punkte 2 


Wir möchten hier dieses Programm nicht lange erläutern, das würde zu weit am Thema vorbei 
führen. Es soll Sie nur ein wenig einstimmen. Also setzen Sie sich hin, und schauen Sie sich 
das Ganze einfach an. 

Oft - auch in diesem Buch - stehen wir vor der Aufgabe, nicht nur eine Linie zu zeichnen (das 
können Sie mit Hilfe der entsprechenden Befehle auch), sondern Schnittpunkte mit anderen 
Linien (oder gar Ebenen) zu berechnen, Linien abzuschneiden o.ä. Hierzu benötigen wir 
zumeist eine Spur von Mathematik. 

Ganz grundlegend dabei ist natürlich die Geradengleichung, die wohl jeder schon einmal 
irgendwo gesehen hat: 

a*x + b»y + c = 0 (Allgemeine Form) 


oder: 


y = m*x + n 


(Normierte Form) 







Farbteil I 


BMI: 
Ray-Tracing- 
Scene 1: 
Spiegelungen, 
Reflexionen, 
Schatten... 



Bild II: 
Ray-Tracing: 
Lichteindrücke 
für das Auge 

















Farbteil II 




Bild IV: 
Rotationskörper 2 
(Grün) 















Farbteil HI 

















Farbteil IV 



Bild VII: 
Funktions¬ 
plotter 1 



Bild VIII: 
Funktions¬ 
plotter 2 
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wobei m die Steigung und n den Schnittpunkt mit der y-Achse angeben, es gilt: 
m = 

X2-X, 

Auch diese Form ist möglich: 

y = m*(x-xi) + yi (Punkt-Steigungs-Form) 

wobei: 

Xi,yi Ein Punkt auf der Geraden 

m Steigung (s.o.) 

Daraus leitet sich die nächste Form ab: 

—y—yi— = — —(Zweipunktegleichung) 

yz-yi X2-X1 

Eine letzte, nicht so alltägliche Form lautet: 

+ -y-= 1 (Achsenabschnittsform) 

a b 

Diese Gerade schneidet die x-Achse im Punkt P(a,0) und die y-Achse im Punkt Q(0,b). 



Bild 3.5: Die Steigung einer Geraden 
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Natürlich gibt es noch einige weitere Formen, die uns an dieser Stelle noch nicht interessieren 
sollen. Wir werden einigen dieser Gleichungen noch öfter begegnen. Sie sollten hier nur einmal 
gerafft vorgestellt werden. An den entsprechenden Stellen wird die jeweils verwendete Form 
natürlich noch einmal genauer erläutert. 

Auch für Kreise und Ellipsen (der Kreis ist ja lediglich ein Sonderfell der Ellipse) gibt es mathe¬ 
matische Beschreibungen, die vielleicht schon etwas unbekannter sind: 

2 2 

+ -^= 1 (Normalform) 

af W 

wobei: 

a Radius der Ellipse in x-Richtung 
b Radius der Ellipse in y-Richtung 

für den Kreis gilt a = b = r und damit: 

x^ -t- _ 1 

Eine andere, viel verwendete Form lautet: 

X = a • cos(w) (Parameterform) 

y = b * sin(w) 

wobei: 

a Radius der Ellipse in x-Richtung 
b Radius der Ellipse in y-Richtung 

w Winkel zwischen der Verbindung Ellipsenpunkt-Mittelpunkt und der x-Achse 
Für den Kreis gilt natürlich wieder: a = b 



Bild 3.6: Ellipsengleichung 
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Nach diesem ganz kurzen Exkurs stürzen wir uns direkt in unser Thema, das uns in diesem 
Kapitel als erstes beschäftigen soll. Möchten Sie noch ein wenig mehr und detaillierter über 
die gerade vorgestellten Dinge erfahren, dann schlagen Sie ruhig einmal im Anhang nach. Dort 
werden sie noch einmal ausführlich erläutert. 


3.2 Transformationen in 2-D 

Auf dem Weg in räumliche Welten spielen sogenannte Transformationen eine wichtige Rolle. 
Unter Transformationen verstehen wir im weitesten Sinne »Umwandlungen« einer bestehenden 
Grafik. Angenommen, wir haben eine kleine Grafik (ein Haus o.ä.) auf dem Bildschirm 
gezeichnet. Wir kennen die Koordinaten der verschiedenen Eckpunkte und die Punkte, die mit¬ 
einander durch Linien verbunden werden sollen. Wir wünschen uns nun einfache mathemati¬ 
sche Operationen, die es uns erlauben, dieses Haus per Programm und ohne die einmal festge¬ 
legten Koordinaten mit der Hand verändern zu müssen, auf dem Bildschirm zu verschieben, 
es zu vergrößern oder zu verkleinern. Wir wollen es drehen und spiegeln, kurz: transformieren. 

In vielen Anwendungen spielen Transformationen eine wesentliche Rolle. Architekten werden 
sehr viel Wert darauf legen, ihre Werke auch einmal aus einem anderen Winkel zu betrachten 
oder Details zu vergrößern. Trickfilmzeichner suchen sicher nach einer Möglichkeit, Figuren 
zu verschieben oder zu drehen usw. 

Für diese Zwecke ist es sinnvoll, ein Bild nicht einfach Punkt für Punkt auf den Bildschirm zu 
zeichnen, wie wir das auf einfache Weise mit Malprogrammen wie »Deluxe Paint« o.ä. realisie¬ 
ren können. Vielmehr setzt sich für uns ein Bild aus einer Reihe von Linien zusammen, deren 
Endpunkte uns durch ihre Koordinaten bekannt sind. Wir haben die Koordinaten für unsere 
ganze kleine »Bildwelt« gespeichert und können sie so jederzeit durch mathematische Manipu¬ 
lationen, eben Transformationen verändern. 

In diesem Kapitel geht es nun darum, solche Transformationen in der Ebene durchzuführen. 
Dabei werden wir die zugehörigen mathematischen Verfahren und den Umgang mit ihnen 
kennenlernen. Sie begleiten uns dann später durch einen großen Teil des Buches. 

3.2.1 Mathematische Grundlagen - leicht gemacht 

Bevor wir allerdings die verschiedenen Transformationen diskutieren wollen, werden wir ein 
paar mathematische Grundsteine legen müssen. Diese sollten Sie in jedem Falle verstehen und 
zumindest einigermaßen beherrschen, da sie uns durch das gesamte Buch begleiten. Ohne sie 
ist ein durchdringendes Verständnis der einzelnen Operationen und grafischen Manipulationen 
kaum möglich. Besonderes Augenmerk sollten Sie auf die Matrizenmultiplikation legen. Sie 
ist für uns mit eine der wichtigsten Operationen. 

Ganz konkret sollen uns an dieser Stelle sogenannte Matrizen beschäftigen. Matrizenrechnung 
ist gar nicht so kompliziert, wie man Leute oft stöhnen hört. Sie ist aber von enormer Bedeutung 
für jede Art von Transformationen, da sie ein einfaches Mittel zu ihrer Realisierung darstellt. 
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Wenn Sie nach der Lektüre der folgenden Seiten noch kein Verständnis dafür haben, was uns 
diese neue Errungenschaft eigentlich bringt, so ist das nur natürlich. Warten Sie in diesem Falle 
einfach das Ende dieses 2-D-Kapitels ab. 

Unter einer Matrix stellen wir uns eine rechteckige Anordnung von verschiedenen Zahlen vor: 


au 

ai2 

ai3 

ai4 

ai5 

ain ' 

a2i 

a22 

a23 

a24 

a25 

^2n 

asi 

a32 

a33 

a34 

a35 

äSn 

a4i 

a42 





( anu 

am2 

am3 

am4 

am5 

^mn 1 


Jede Zahl aj^ (z.B. au oder stellt ein Element der Matrix dar. (Die Indizes an den Elementen 
oben sollen nur zur Unterscheidung dienen, die Namen für Matrizen sind vereinbarungsgemäß 
immer Großbuchstaben, hier A.) Die Matrix setzt sich zusammen aus Zeilen (waagerechte Reihe 
von Elementen) und Spalten (senkrechte Reihe von Elementen). Sie ist, so sagt man, vom Typ 
(m,n), da sie m Zeilen und n Spalten besitzt. Man spricht auch von einer (m,n)-Matrix. Die Ele¬ 
mente au, ai 2 , ai 3 ,... (oder kurz: aik) stellen die erste Zeile dar, alle Elemente a 2 k die zweite Zeile 
etc. Analog verhält es sich mit den Spalten. Ein Element ajk steht also in der Zeile i und in der 
Reihe k. Wir haben es hier sozusagen mit einem zweidimensionalen Array zu tun. 

Die Anzahl von Elementen in einer Zeile kann (muß aber nicht) gleich der Anzahl der Elemente 
in einer Spalte sein. In diesem Fall sprechen wir von einer n-reihigen quadratischen Matrix, z.B.: 


A 



5 -6 
13 8 


2 22 


Diese Matrix ist dreireihig und quadratisch. Quadratische Matrizen sind deshalb besonders 
hervorzuheben, da sie definitionsgemäß einer Zahl zugeordnet sind, der sogenannten Determi¬ 
nante. Determinanten werden beispielsweise verwendet, wenn GleichungsSysteme mit mehre¬ 
ren Unbekannten gelöst werden müssen. 

Ein weiterer Sonderfall von Matrizen sind solche, die nur eine Zeile oder nur eine Spalte besit¬ 
zen. Sie sind daher vom Typ (l,n) bzw. (m,l) (s.o.), z.B.: 

A = (1 5 3 -4) 

Hier haben wir es mit einer Matrix zu tun, die nur eine einzige Zeile besitzt (hier mit 4 »Spal¬ 
ten«). Sie wird auch »Zeilenvektor« genannt. Der andere Fall ist ein sogenannter »Spalten¬ 
vektor«, Z.B.: 



Man kann mit Matrizen nun auch rechnen. Wir können Additionen, Subtraktionen und Multi¬ 
plikationen mit einer einfachen Zahl wie auch mit einer anderen Matrix durchführen. Wir 
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wollen uns hier aber keinen unnötigen Ballast aufladen und richten unseren Blick auf die 
Operationen, die wir dringend benötigen: »Die Matrix-Multiplikation zweier verketteter 
Matrizen« (für andere Rechenoperationen schauen Sie bitte im Anhang nach). 

Hinter dem Begriff der »verketteten Matrizen« verbirgt sich eigentlich nur folgendes: 

Man kann zwar zwei Matrizen miteinander multiplizieren, sie müssen dafür aber bestimmte 
Bedingungen erfüllen, sie müssen nämlich verkettet sein. 

Zu deutsch: Wir können zwei Matrizen nur dann miteinander multiplizieren, wenn die erste 
genausoviele Spalten besitzt wie die andere Zeilen. Ein Beispiel einer erlaubten Multiplikation 
wäre dann: 

( 1 2 3 \ / 1 2 

4 5 6 » 3 4 

789 / \5 6 

A besitzt drei Spalten, B drei Zeilen und damit wäre die Bedingung erfüllt. Wir sehen aber auch, 
daß die Multiplikation B*A nicht erlaubt ist. Auch wenn B*A erlaubt wäre, hieße das nicht, 
daß das Ergebnis das gleiche wäre wie A*B. Die Reihenfolge der Faktoren ist also stets wich¬ 
tig! Beachten Sie, daß eine Matrixmultiplikation zwischen zwei quadratischen Matrizen (s.o.) 
immer erlaubt ist. Wir werden nämlich später vorzugsweise mit quadratischen Matrizen zu tun 
haben. 

Das Ergebnis einer Matrixmultiplikation ist wieder eine Matrix. Sie besitzt die gleiche Anzahl 
von Zeilen wie die erste (A) und die gleiche Anzahl von Spalten wie die zweite Matrix (B). Das 
Ergebnis der obigen Multiplikation ((3,3)-Matrix mal (3,2)-Matrix) wäre also eine Matrix vom 
Typ (3,2) (3 Zeilen, 2 Spalten). 


Die Berechnung dieser Ergebnismatrix C ist ein wenig kompliziert. Für die kundigen Leser 
schreiben wir die Berechnung eines einzigen Elementes in mathematischer Kurzschreibweise: 


n 

Cjk = y’ay*bjk = ay’bik + ai2»b2k + .. 

• • + aj„*bnk 

maä 

j = l 



was soviel heißt wie: Das Element Cuc berechnet sich aus der Summe aller aij»bjk für j = 1 bis 
j=n. 

wobei: 

Ciic ein Element der Ergebnismatrix C 
aij ein Element der Matrix A 
bjk ein Element der Matrix B 
n Anzahl der Spalten von A, also auch: 

Anzahl der Zeilen von B 

Damit können natürlich nur die wenigsten etwas anfangen, deshalb wollen wir das an einem 
Beispiel klar machen: 
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Wir berechnen, so sagt die Formel, ein Element Cuc der Ergebnismatrix, indem wir alle Ele¬ 
mente der i-ten Zeile(!) von A mit den jeweils korrespondierenden Elementen der k-ten 
Spalte(!) von B multiplizieren und von den Ergebnissen die Summe bilden (also addieren): 


C= A * B 


/ an 

ai2 

ai 3 


' bu 

bl2 \ 

a2i 

a22 

a 23 

* 

1)21 

b22 1 

\ a 3 i 

a 32 

a 33 1 


1 631 

b 32 / 


( 1 2 3 \ / 1 2 

4 5 6 * 3 4 

7 8 9 / \ 5 6 


1*1 

- 1 - 

2*3 

+ 

3*5 

1*2 

- 1 - 

2*4 

- 1 - 

3*6 

4*1 

- 1 - 

5*3 

-f 

6*5 

4*2 

- 1 - 

5*4 

- 1 - 

6*6 

7*1 

- 1 - 

8*3 

- 1 - 

9*5 

7*2 

- 1 - 

8*4 

- 1 - 

9*6 


/ 22 28 \ / Cii C 21 \ 

= 49 64 = C 21 C 22 

\ 76 100 / \ C 31 C 32 / 


Das sieht ziemlich gewaltig aus, läßt einen Computer aber natürlich völlig kalt. Beachten Sie, 
daß in der vorletzten Zeile der Ausdruck »1*1 -I- 2*3 -I- 3*5« beispielsweise ein einziges 
Element darstellt. Versuchen Sie das Beispiel einmal nachzuvollziehen. Etwa so: Das oberste 
linke Element der Ergebnismatrix C, also das Element eil, wird errechnet durch: 


Cu — au*bu -I- ai2*b2i + ai3*b3i 


Das Element cn wird berechnet durch... usw. 


m 

B 

B 

B 

B 

B 

B 

B 

B 

n 

n 

B 

n 

B 

B 

B 


an 

B 

B 

mm 

m 

CI 

dB 

n 

B 

mm 

B 

□ 


la*A + b*E + c»H + d*L 1 

la*B + b*F + e‘l+d*M 1 




1 

] 

H 

le*C + f*G + a*J + b*N 

lt*D + f*H + q*K + b*0 1 

l>*A+ i»E + i*H + t*t 1 









Bild 3.7: Schema der Matrixmultiplikation 
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Testen Sie Ihr Verständnis doch einmal an diesen beiden Übungsaufgaben: 

Berechnen Sie die Ergebnismatrix C der Matrixmultiplikationen: 

C = A*B 

C = A*B 

Einige Rechenregeln sollten wir uns noch einmal anschauen. Multiplizieren wir eine Reihe von 
Matrizen, so ist es gleichgültig, welche Multiplikationen wir zuerst durchführen, solange wir 
die Reihenfolge nicht verändern, mathematisch ausgedrückt: 

A*(B*C) = (A*B)*C 

Falsch wäre allerdings: A»(B»C) = (A*C)«B 

Wie wir oben bereits festgehalten haben, gilt nicht - und das ist sehr wichtig: A*B = B«A 

Es existieren eine Reihe von besonderen Matrizen, mit denen man eine andere Matrix multipli¬ 
zieren kann, ohne daß sich etwas ändert. Es sind dies quadratische Matrizen, in denen alle Ele¬ 
mente gleich Null sind. Lediglich die Elemente der sogenannten Hauptdiagonale müssen den 
Wert Eins besitzen, man nennt sie auch quadratische Einheitsmatrizen E: 




3 5 
7 0 
5 5 
1 2 

4 4 


2 8 ' 
1 1 

3 2 
0 5 

4 4 , 


I 1 1 
6 -6 
3 0 
\ 4 10 


(1) oder 


Es gilt: 
A*E = 



Wie wir die Matrizen in der Computer-Grafik z.B. für Transformationen einsetzen (dort wird 
alles meist viel einfacher als es hier erscheint), das erfahren wir jetzt: 


3.2.2 2-D-VergrößerungenA^erkleinerungen 

Es gibt natürlich neben den Matrizen noch weitere Möglichkeiten, die verschiedenen grafi¬ 
schen Transformationen mathematisch zu beschreiben. Es hat sich jedoch herausgestellt, daß 
keine so anschaulich und einfach zu handhaben sind, wie die nun folgenden Ableitungen. 

Wie gesagt, geht es darum, die Koordinaten der einzelnen Punkte unserer Welt nachträglich 
mathematisch zu manipulieren (= zu transformieren). Damit wir aber mit Punkten und Matri¬ 
zen nicht wie mit Äpfeln und Birnen rechnen, ist es notwendig, jeden Punkt so zu beschreiben. 
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daß er ins Matrizen-Schema paßt. Hierzu nehmen wir die beiden x- und y-Koordinaten eines 
Punktes und sehen sie quasi als (1,2)-Matrix an. Angenommen, ein Punkt besitzt die Koordina¬ 
ten X und y, dann lautet seine Matrix-Schreibweise: 

P(x,y) = (xy) 

Dies ist natürlich eine rein willkürliche Definition, die nicht bewiesen werden muß, uns aber 
sehr hilfreich sein wird. 

Wollen wir einen Punkt nun transformieren, so multiplizieren wir ihn mit einer sogenannten 
Transformationsmatrix. Haben wir diese Matrix korrekt gewählt, dann sollte die Ergebnis¬ 
matrix die Koordinaten des transformierten Punktes angeben. Die Ergebnismatrix muß also 
wieder vom Typ (1,2) sein (und damit die Koordinaten enthalten). 

Wir suchen also eine Transformationsmatrix T, die - multipliziert mit dem Ausgangspunkt P 
- den transformierten Punkt P' (bzw. dessen Matrix) bestirmnt: 

P' = P » T 

Wenn wir nun alle Punkte unseres Gebildes mit T multiplizieren, dann haben wir unser ganzes 
Bild transformiert. Wie sieht es dann aber aus? Nun, das hängt natürlich von den Elementen 
der Matrix T ab. Nehmen wir an, T ist die Einheitsmatrix (s. Mathematische Grundlagen): 



In diesem Falle bleibt das gesamte Bild so erhalten wie es ist, denn in unserem obigen Beispiel 
ist P gleich P'. 

Angenommen, wir verwenden aber die folgende Matrix: 



Das Ergebnis: 
P' = P * Ti 



= (x*2 -f y*0 x»0 -I- y»l) 

= (2«x y) 

= (X' y') 

Die letzten beiden Zeilen in uns vertrauter Parameterschreibweise: 
x' = 2»X 

yl = y 

Wir sehen: Jede neue x-Koordinate wird durch die Transformation doppelt so groß sein wie die 
ursprüngliche. Das bedeutet aber eine Verzerrung (oder Vergrößerung) in x-Richtung. 
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Bild 3Ä: Verdoppelung aller x-Koordinaten 


Entsprechend finden wir auf der Suche nach einer Matrix, die alle y-Koordinaten verdoppelt 
und damit das Bild in y-Richtung verzerrt: 



Wenn wir nun ein Bild sowohl in x- als auch in y-Richtung vergrößern (verkleinern) möch¬ 
ten, dann realisieren wir das in folgender Formel: 

P' = (P*Ti)*T2 

Erst vergrößern wir es also in x-, dann in y-Richtung. Da wir nach den Rechengesetzen für 
Matrizen diese Formel auch 

P = P*(Ti*T2) 

schreiben können, läßt sich sehr einfach eine Matrix T 3 =Ti*T 2 finden, die beide Transfor¬ 
mationen auf einmal ausführt: 

T3 = Ti*T2 



Wenn wir das Ganze verallgemeinern, dann erhalten wir die folgende Transformationsmatrix 
S für Vergrößerung/Verkleinerung (= Skalierung): 

=(o' U 

Dabei bedeuten: 

Sx - Skalierungsfaktor in x-Richtung 
Sy - Skalierungsfaktor in y-Richtung 
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Je nach Wert für Sx oder Sy verändert sich das Bild in folgender Weise: 

Sx/y > 1 - Vergrößerung 
Sx/y = 1 - Keine Veränderung 
0 < Sx/y < 1 - Verkleinerung 

Sx/y < 0 - gleichzeitig Spiegelung um x/y-Achse 

Werte kleiner oder gleich Null für die Skalierungsfaktoren sollten vermieden werden, da es sich 
dabei dann nicht mehr um eine einfache Vergrößerung bzw. Verkleinerung handelt. 

Mit dieser einfachen Matrix haben wir unser Problem gelöst. Wir können mehrere Skalierungen, 
die hintereinander ausgeführt werden sollen, je nach Anwendung in einer Matrix zusammenfas- 
sen oder auch durch mehrere Matrixmultiplikationen realisieren. Im Rechner führen wir eine 
Skalierung eines Punktes P(x, y) mit der Transformationsmatrix S nach folgendem Schema aus: 

P' = P(x,y) * S(Sx,Sy) 



= (Sx*x Sy*y) 


= (x- y') 

Diese Matrixschreibweise unseres resultierenden Punktes P' lösen wir dann wieder auf in die 
Koordinatenschreibweise und erhalten: 

x' = Sx*X 
y' = Sy*y 

Das sind also die beiden Formeln, die der Computer zu berechnen hat. Der scheinbar kompli¬ 
zierte Umweg über Matrizen wird uns später allerdings sehr von Nutzen sein. 

Das folgende kleine Basic-Programm soll Ihnen die Anwendung der Skalierungs- 
Transformation ein wenig näher bringen: 



** 


** 

** 

2-D-Transformation: 

** 


Skalierung 

** 



** 



' Punkte und Linien einiesen: 

READ anzp^, anzl^ 

DIM SHARED x.punkte(anzp^-1), y.punkte(anzp^-1) 
DIM SHARED s.linien^(anzl^-l), e.linien?(anzl^-l) 
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'Skalierungsfaktoren: 
sx = 1 
sy = 1 

Bildposition: 
va.% = M0USE(3) 
my^ = M0USE(4) 

'Punkte elnlesen: 

FOR i=0 TO anzp!S-l 

READ x.punkte(i), y.punkte(i) 

'PRINT 1": "x.punkte(i), y.punkte(i) 
NEXT i 

'Linien (Punktverbindungen) elnlesen: 
FOR i=0 TO anzliS-1 
READ s.linien^(i), e.linlen?(i) 

NEXT i 


' Hauptschleife: 

WHILE c<>27 'bis ESC 

CLS 'Bildschirm löschen 

' Zeichenschleife: 

FOR 1=0 TO anzl^-1 

xl^ = X. punkte (s. llnlenjS (i)) 
yl^ = y.punkte(s.llnien^(i)) 
x2^ = x.punkte(e.linien?(i)) 
y2% = y.punkte(e.linlen^(i)) 

LINE (mx%+xl%,my%-yl%)- (mx^+x2^,my^-y2^) 
NEXT i 

' Auf Tastendruck warten: 

c$="" 

m^=0 

WHILE c$="" AND m^=0 

SLEEP 'Warten und Multitasking 

'ermöglichen 

c$=INKEY$ 'evt. Taste holen 

m^=M0USE(0) 'oder Mausstatus 

WEND 


sx = 1 
sy = 1 
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IF m%<>0 THEN 'Maustaste betätigt? 
mx% = MOUSE(l) 'ja -> neue Position 
my% = M0USE(2) 

ELSE 

c = ASC(c$) 


IF c=28 THEN 

' Cursor 

auf? 

sy = 1.2 

'ja -> 

y-Vergrößerung 

END IF 

IF c=29 THEN 

'Cursor 

ab? 

sy = .8 

'ja -> 

y-Verkleinerung 

END IF 

IF c=30 THEN 

' Cursor 

links? 

sx = 1.2 

'ja -> 

x-Vergrößerung 

END IF 

IF c=31 THEN 

' Cursor 

rechts? 

sx = .8 

'ja -> 

x-Verkleinerung 


END IF 
END IF 

'Gesamtes Bild transformieren: 
CALL transformiere.bild(sx,sy) 

WEND 

END 


' Alle Koordinaten des Bildes transformieren: 
SUB transformiere.bild(sx,sy) STATIC 
SHARED 1, anzp^ 

FOR 1=0 TO anzpS?-! 

CALL s.transform(sx,sy) 

NEXT 1 
END SUB 

' Matrixmultiplikation P2=P1*S: 

SUB s.transform(sx,sy) STATIC 
SHARED 1 

x. punkte(l) = sx*x.punkte(1) 

y. punkte(l) = sy*y.punkte(1) 

END SUB 
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' Bilddaten: 

' Anzahl der Punkte / Anzahl der Linien: 
DATA 33 
DATA 30 


' Punktkoordinaten: 


DATA 

0, 

3, 

0, 7, 

2, 8, 

4, 

8, 

4, 

12 

DATA 

6, 

13, 

20,13, 

22,12, 

22, 

8, 

24, 

8 

DATA 

26, 

7, 

24,12, 

26, 3, 

24, 

3, 

24, 

0 

DATA 

20, 

0, 

20, 3, 

6, 3, 

6, 

0, 

2, 

0 

DATA 

2, 

3, 

6, 9, 

6,12, 

20, 

12, 

20, 

9 

DATA 

22, 

5, 

20, 6, 

22, 7, 

24, 

6, 

4, 

5 

DATA 

2, 

6, 

4, 7, 

6, 6 






' Linien (PunktVerbindungen): 


DATA 

0, 1, 

1, 2, 

2, 9, 

9,10, 

9,11 

DATA 

10,12, 

12, 0, 

3, 4, 

4, 5, 

5, 6 

DATA 

6, 7, 

7, 8, 

21,22, 

22,23, 

23,24 

DATA 24,21, 

13,14, 

14,15, 

15,16, 

17,18 

DATA 

18,19, 

19,20, 

25,26, 

26,27, 

27,28 

DATA 

28,25, 

29,30, 

30,31, 

31,32, 

32,29 



Bild 35: Skalierung 
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In diesem Programm werden Ihnen bereits die Grundzüge einer grafischen Datenverwaltung 
vorgestellt, die wir ausführlich aber erst im nächsten Kapitel bei der ersten Besprechung von 
dreidimensionalen »Welten« diskutieren wollen. Dieses Programm nun zeichnet ein kleines 
Gebilde auf den Bildschirm. Mit Hilfe der Cursortasten sind Sie nun in der Lage, das Bild in 
X- bzw. y-Richtung zu vergrößern und zu verkleinern. Dabei sind folgende Funktionen erreich¬ 
bar: 


Cursor auf 
Cursor ab 
Cursor rechts 
Cursor links 
Esc 

Maustaste 


Vergrößerung in y-Richtung 
Verkleinerung in y-Richtung 
Vergrößerung in x-Richtung 
Verkleinerung in x-Richtung 
Programm beenden 

Bildobjekt gemäß Mausposition positionieren 


Die Definition des Objektes finden Sie in den DATA-Zeilen am Ende des Programmes. Hier 
sind die x- und y-Koordinaten jedes einzelnen Eckpunktes festgehalten. Im Anschluß daran fin¬ 
den Sie die Nummern derjenigen Punkte, die jeweils eine Linie beschreiben. Die Daten werden 
in Arrays eingeladen und können so jederzeit manipuliert werden. 


Für unser Thema sind dabei die Sub-Routinen transfortniere.bild() und s.transform() wich¬ 
tig. Letztere führt die Matrixmultiplikation eines einzelnen Punktes mit der Skalierungsmatrix 
S durch (mit den Elementen Sx und Sy). Der Parameter »i« gibt dabei die Nummer des jeweili¬ 
gen Punktes im Punktearray an. Die andere der beiden Routinen transformiert alle Punkte des 
Bildes, indem sie s.transform() für jeden einzelnen Punkt aufruft. 


Die Matrix-Elemente Sx und Sy stammen aus dem Hauptprogramm und werden je nach Ihrer 
Cursor-Eingabe gesetzt. Der Rest des Programmes ist hauptsächlich schmückendes oder not¬ 
wendiges Beiwerk, das Sie persönlich jederzeit verändern oder gar erweitern können. Das ist 
gleichzeitig der beste Weg, sich mit dem Stoff dieses Programmes vertraut zu machen. 


3.2.3 Spiegelui^en 

Auch Spiegelungen um eine bestimmte Achse sind recht einfach durch Matrixmultiplikationen 
realisierbar. In diesem Fall ist es sogar recht einfach, eine Transformationsmatrix zu finden, 
da wir für Spiegelungen folgende Parametergleichungen verwenden: 

Spiegelung um die x-Achse: 

x' = X 

y' = -y 

Spiegelung um die y-Achse: 

x' = -X 

y' = y 

Das erinnert uns an die Skalierung und schon haben wir die passenden Matrizen: 
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Bild 3.10: Spiegelungen 
Spiegelung um die x-Achse: 



Spiegelung um die y-Achse: 



Wollen wir um beide Achsen gleichzeitig spiegeln, was einer Punktspiegelung gleichkäme, 
dann brauchen wir auch hier nur eine kleine Matrixmultiplikation durchzuführen (rechnen Sie 
ruhig nach): 

M,y = M,*My = (“q ) 

Da es sich hierbei um das gleiche Prinzip handelt, wie bei der Skalierung, möchten wir Sie 
auch nicht länger langweilen und machen gleich weiter beim nächsten Thema. Bauen Sie die 
Spiegelung doch einfach in das obige Programm ein (z.B. Spiegelung auf Tastendruck etc.). 


3.24 Drehungen (Rotationen) in 2-D 

Jetzt wird es wieder hochinteressant. Es geht nämlich um Drehungen (Rotation) einzelner 
Punkte um den Koordinatenursprung. Oft sollen nämlich einzelne Objekte oder ganze Bilder 
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gedreht werden, um sie von einem anderen Winkel aus zu betrachten etc. Die Grundlage zu 
einer solchen Drehung um einen beliebigen Punkt stellt die Drehung eines Punktes um den 
Koordinaten-Nullpunkt dar, die wir uns nun etwas genauer anschauen werden. 

Uns interessiert nun natürlich eine Matrix, mit der wir eine solche Drehung durchführen kön¬ 
nen. Um diese Matrix zu finden, bedarf es zunächst aber der Ableitung der entsprechenden 
Parametergleichungen. Betrachten Sie hierzu bitte die folgende Abbildung. 


y 

p’(x'.y) 

r / 



yC ^P(x.y) 

1 1 



X 


Bild 3.11: Drehen eines Punktes um den Nullpunkt 


Sie wissen noch nicht - oder nicht mehr - genau, was es mit Winkelfunktionen (Sinus oder 
Cosinus etc.) auf sich hat? Kein Problem, schauen Sie in den Anhang! Dort finden Sie alles 
für uns Wissenswerte über dieses Thema, und da setzen wir die Kenntnis voraus, was unter Win¬ 
kelfunktionen zu verstehen ist. 

Ein Wort zur Abbildung: Dort wird ein Punkt P(x,y) um den Winkel w um den Nullpunkt 
gedreht. Der resultierende Punkt heißt P'(x',y'). Sowohl P als auch P' haben natürlich den 
gleichen Abstand r vom Drehzentrum. Die Verbindung zwischen P und dem Nullpunkt bildet 
mit der x-Achse den Winkel a. Damit bildet die Verbindung P' bis zum Nullpunkt mit der 
X-Achse den Winkel w -I- a. 

Entsprechend den Definitionen für Sinus und Cosinus können wir aus unserer Skizze die fol¬ 
genden vier Gleichungen ableiten: 

cos(a) = x/r 
sin(a) = y/r 
cos(a-l-w) = x'/r 
sin(a -I- w) = yVr 

Damit haben wir schon einmal einen Grundstock, auf den wir aufbauen können. Die beiden 
letzten Beziehungen lassen sich einfach umformen in: 

x' = r*cos(a-l-w) 
y' = r* sin(a+w) 
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x' und y' sind bekanntlich die beiden Koordinaten des gedrehten Punktes, auf deren Suche 
wir sind, x und y stellen die Koordinaten des Ursprungspunktes dar und w ist der Drehwinkel. 

Etwas Kopfzerbrechen machen uns die Werte r und a. Sie sind uns nämlich unbekannt. Also 
werden wir versuchen, sie zu ersetzen. Dabei sind uns zwei sogenannte Additionstheoreme für 
Winkelfunktionen sehr hilfreich, die wir hier nicht beweisen wollen, da sie in jeder mathemati¬ 
schen Formelsammlung nachgeschlagen werden können: 

sin(s-l-t) = sin(s) * cos(t) -I- cos(s) • sin(t) 
cos(s-)-t) = cos(s) * cos(t) - sin(s) * sin(t) 

Wir werden nun natürlich für s unser a und für t unser w einsetzen. Damit können wir die obigen 
Gleichungen leicht umformen: 

x' = r * [cos(a) * cos(w) - sin(a)*sin(w)] 
y' = r • [sin(a)*cos(w) -I- cos(a)»sin(w)] 

Was fangen wir nun mit einem solchen Formelmonstrum an? Und a und r stören uns immer 
noch. Sofort fällt unser Blick auf die allerersten zwei Formeln, die wir noch nicht verwendet 
haben. Sie erlauben es uns, alle sin(a) durch y/r und alle cos(a) durch x/r zu ersetzen. Damit 
hätten wir alle Terme, in denen a vorkommt durch andere ausgetauscht: 

x' = r * [x/r * cos(w) - y/r • sin(w)] 

y' = r * [y/r * cos(w) -I- x/r * sin(w)] 

Und siehe da, wir haben nur noch eine Unbekannte Größe: r. Doch die ist auch nur scheinbar. 
Denn wenn Sie sich einmal die Mühe machen und die eckigen Klammern auflösen, dann ver¬ 
schwindet dieser Störenfried wie von selbst: 

x' = x»cos(w) - y*sin(w) 

yi = x*sin(w) -4- y»cos(w) 

Genau das ist es, was wir haben wollten: Gleichungen, mit denen wir aus den bekannten Para¬ 
metern X und y (Punktkoordinaten) und w (Drehwinkel) die Koordinaten x' und y' des resul¬ 
tierenden Punktes errechnen können. 

Jetzt können wir uns auf die Suche nach einer geeigneten Matrix begeben. Betrachten wir uns 
noch einmal die allgemeine Multiplikation einer Punktmatrix mit einer quadratischen Matrix, 
wie sie uns vorschwebt: 

P> = p*M = (xy) « f ] 

\ 321 322 / 

= (x»aii-l-y»a2i x*ai2-l-y*a22) 

Im Falle der Drehung sollte die resultierende Punktmatrix wie folgt lauten: 

P' = ( x*cos(w)-y*sin(w) x*sin(w)-I-y*cos(w)) 
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Setzen wir folgendes gleich: 

au = cos(w) 
an = -sin(w) 
a ]2 = sin(w) 
a 22 = cos(w) 

dann erhalten wir die folgende Transformationsmatrix für die allgemeine Rotation (gegen den 
Uhrzeigersinn) um den Koordinatenursprung: 

R(W) - ( “"«l 

\-sm(w) cos(w) / 

Ein Beispiel: 

Angenommen wir wünschen, den Punkt P mit den Koordinaten P(3,4) um den Winkel 60 Grad 
um den Nullpunkt zu drehen. (Wenn Sie nachrechnen, stellen Sie Ihren Taschenrechner auf 
DEGree für normale Gradberechnung. Normalerweise rechnen Computer nämlich mit 
RADiant.) Unsere Rotationsmatrix sieht dann so aus: 


/ cos(60) 

sin(60) ) 


/ 0.5 

0.866 \ 

\-sin(60) 

cos(60) j 


\ -0.866 

0.5 ) 


Den resultierenden Punkt P' errechnen wir dann auf die folgende Art und Weise: 

P - P(3.4). R(60) . (3 4). ( »1^ 

= (3*0.5-4*0.866 3*0.866 + 4*0.5) 

= (-1.964 4.598) 

Die Koordinaten des resultierenden Punktes lauten also P'(-1.964, 4.598). So einfach 
geht das. 
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Sehr einfach sind jetzt natürlich kombinierte Transformationen möglich. Angenommen Sie 
möchten Ihr Objekt sowohl drehen als auch vergrößern. Normalerweise würden wir diese 
beiden Transformationen nacheinander ausführen nach der Formel: 


P' = (P*R)*S 

Da aber, wie wir oben bereits gesehen haben, gilt: 


P' = (P*R)*S = P*(R*S) 


können wir auch eine einzige gemeinsame Transformationsmatrix M=R(w)*S(Sx,Sy) berech¬ 
nen, die sowohl Rotation als auch Skalierung durchführt: 


M = R(w).S(S.,S,,=( 

( cos(w)*Sx sin(w)»Sy 
-sin(w)»Sx cos(w)*Sy 


Sx 

0 


) 


0 

Sy 


) 


Auf die gleiche Weise lassen sich so mehrere Drehungen hintereinander in einer Matrix aus¬ 
führen usw. 


Das folgende kleine Beispielprogramm soll Ihnen das Prinzip der Rotation im Programm ver¬ 
deutlichen: 


'XX Rotation eines Kurvenzuges xx 

'XX XX 

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

'Funktion deklarieren: 

DBF FNf(x)=SIN(x)/x 
ON ERROR GOTO fehler 

'Funktionsparameter: 

a = 320 'x-Koordlnate des Nullpunktes 

b = 150 'y-Koordinate des Nullpunktes 

fl = 10 'x-Vergrößerungsfaktor 

f2 = 50 'y-Vergrößerungsfaktor 

'Schleife zur Veränderung des Rotations-Winkels 
FOR wl=0 TO 30 STEP 5 

w = wl/180 X 3.141593 'Winkel in RAD umrechnen 
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'y-Koordlnatenachse einzeichnen: 

X = a : y = 200 : CALL rot.transform(w) 

PSET (xr^,yr^),2 

X = a : y = 0 : CALL rot.transform(w) 

LINE -(xr^,yr^),2 

'x-Koordlnatenachse einzeichnen: 

X = 0 : y = b : CALL rot.transform(w) 

PSET (xr^,yr^),2 

X = 640 : y = b : CALL rot.transforni(w) 

LINE -{xr%,jr%),2 

X = 0 

y = b - f2*FNf((x-a)/fl) 'Funktionswert für x=0 berechnen 
CALL rot.transforiii(w) 

PSET {xr%,yr%),3 'Punkt setzen 

'Berechnung der Funktionswerte: 

FOR x=0 TO 639 

y = b - f2*FNf((x-a)/fl) 'Funktionswert berechnen 

CALL rot.transform(w) 'und Rotieren 

LINE -(xr?,yr^),3 'Linie vom letzten Punkt 

onerr: 

NEXT X 
NEXT wl 

END 

'Rotationstransformation für einen Punkt: 

SUB rot.transform(w) STATIC 
SHARED x,-y,yiT%,yr% 

XT% = x*C0S(w) + y*SIN(w) 
yr^ = -x»SIN(w) + y»C0S(w) 

END SUB 
fehler: 
e=ERR 

IF e=ll OR e=6 THEN 
RESUME onerr 
END IF 
ERROR e 
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Das Programm präsentiert Ihnen eine interessante Anwendung der Drehung. Hier wird nämlich 
die Kurve einer Funktion, die in der DEF-FN-Zeile definiert wurde (in diesem Programm: 
f(x) = sin(x)/x), um einen bestimmten Winkel w gedreht ins Ausgabefenster gezeichnet. Das 
Drehzentrum liegt allerdings im Koordinaten-Nullpunkt des Grafikfensters, da wir ja noch 
nicht um einen beliebigen Punkt drehen können. 

Die für die Drehung zuständige Routine hat den Namen rot.transformO und führt mit den 
Koordinaten x und y eine Drehung um den übergebenen Winkel w aus. Die resultierenden Ko¬ 
ordinaten liefert dieses Unterprogramm in xr und yr. 

Alles umfassend zählt die äußerste FOR.. .NEXT-Schleife die Variable wi den Rotationswinkel 
(in Altgrad) schrittweise hoch. Die Koordinatenachsen werden kurz eingezeichnet (ebenfalls 
gedreht) und dann geht es auch schon an die Zeichnung der gedrehten Kurve. Dabei wird stets 
eine Linie vom jeweils zuletzt gezeichneten Punkt der Kurve zum aktuellen Punkt gezogen. Der 
erste Punkt für x = 0 muß deshalb getrennt berechnet werden. Lassen Sie sich bitte nicht von 
der umständlichen Formel zur Funktionswertberechnung irritieren. Die Parameter a, b, fl und 
f2 dienen nur dazu, die Funktion korrekt und in der richtigen Größe ins Fenster zu rücken (es 
handelt sich hierbei übrigens ebenfalls um eine Transformation). 

Aus Geschwindigkeitsgründen kann es in manchen Anwendungen von Vorteil sein, Sinus- und 
Cosinustabellen anzulegen, statt jedesmal diese Winkelfunktionen zu berechnen. Wird der 
Sinus eines bestimmten Winkels gesucht, so braucht das Programm einfach nur in dieser 
Tabelle nachzuschlagen. 
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3.2.5 Verschiebungen (Translationen) und homogene Koordinaten 

Des öfteren hatten wir uns bereits eine Rotation um einen beliebigen Punkt gewünscht (bisher 
rotierten wir immer um den Koordinatenursprung). Eine solche Rotation könnten wir dadurch 
realisieren, daß wir den Koordinatenursprung auf den Punkt verschieben, den wir als Drehzen¬ 
trum auserkoren haben. Nach der Drehung ist dann ein Zurückschieben notwendig. Es wäre 
also wünschenswert, eine Matrix für eine solche Verschiebung, eine sogenannte Translation, 
zu besitzen. 



Bild 3.14: Translation (Verschiebung) 


Die Verschiebung eines Punktes ist an und für sich eine einfache Sache: 
x' = x-t-Tx 

y' = y+Ty 

wobei Tx und Ty die Werte der Verschiebung in x- und in y-Richtung darstellen. Dummerweise 
ist für diese Gleichungen keine 2x2-Transformationsmatrix zu finden, wie wir sie kennen. Aus 
diesem Grunde haben findige Mathematiker die sogenannten homogenen Koordinaten einge¬ 
führt. Statt unserer altbewährten 2x2-Matrizen werden wir in Zukunft nur noch mit 
3 X 3-Transformationsmatrizen rechnen. 

Bei den homogenen Koordinaten werden die Koordinaten eines Punktes nicht mehr - wie bisher 
üblich - durch zwei Werte angegeben. Vielmehr verwenden wir dabei drei. Unsere Punkt¬ 
matrix sähe dann so aus: 

P = (x*n y»n n) 

Der Wert n ist dabei sozusagen eine Dummy-Koordinate, d.h. eine Koordinate, die in Wahrheit 
nicht existiert und nur aus rechnerischen Gründen eingeführt wird. Sie werden sehen, diese 
zusätzliche Koordinate wird sich automatisch immer in Luft auflösen, sobald wir eine Transfor¬ 
mation durchgeführt haben. Die Einführung homogener Koordinaten ist nicht nur für dieses 
Problem sehr wichtig. Auch in den folgenden Kapiteln werden wir oft nicht um dieses Konstrukt 
herumkommen. 

Sehr wichtig: Wir erhalten die richtigen Koordinaten x und y also stets durch eine Division der 
beiden ersten homogenen Koordinaten durch den dritten Wert n. 
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Ähnlich können wir unsere 2x2-Transformationsmatrizen erweitern. So verändert sich die 
Skalierungsmatrix 

' ( o' s,) 

für homogene Koordinaten in 

/ Sx 0 0 \ 

S(S„Sy) = 0 Sy 0 

\o 0 1/ 

Normalerweise werden wir n immer gleich 1 setzen. Das vereinfacht die Rechnung erheblich. 
Erst später bei der sogenannten Perspektivischen Projektion (3-D-Kapitel) kommen wir noch 
einmal darauf zurück. Eine Transformation eines Punktes führen wir dann z.B. so aus: 

P' = P(x,y) * S(Sx,Sy) 

/ S, 0 0 \ 

= (x*n y»n n) * I 0 Sy 0 I = (Sx*x*n Sy*y»n n) 

\ 0 0 1 / 

Durch Division durch n rechnen wir um in die normalen Koordinaten: 

F = (S,*x Sy.y) 

Das ist genau das Ergebnis, das wir bereits kennen. Da n gleich 1 ist, wird die Sache meist aber 
viel einfacher, als sie hier erscheint. 

Wir können ebenso alle anderen Transformationsmatrizen in »homogene Matrizen« umwan¬ 
deln, indem wir sie einfach durch »vier Nullen und eine Eins« erweitern: 


/ cos(w) 

sin(w) 

o\ 

1 -sin(w) 

cos(w) 


\ 0 

0 

1/ 


Das Ergebnis bleibt natürlich stets dasjenige, das wir bereits kennen. 

Jetzt interessiert uns aber natürlich brennend, wie denn nun die Transformationsmatrix für eine 
Translation lautet. Hier ist sie: 

/I 0 0\ 

T(T„Ty)= 0 10 

\ T. Ty 1 / 

Dabei sind Tx und Ty - wie oben - die Verschiebewerte in x- und in y-Richtung. Multiplizieren 
Sie doch einmal einen konkreten Punkt (z.B. P(5,9)) mit einer konkreten Translationsmatrix. 
Sie werden sehen, es stimmt! Jetzt haben wir den Grundstein für viele grafische Manipulatio¬ 
nen gelegt, wie wir im nächsten Abschnitt gleich sehen werden. 
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3.2.6 Rotation um einen beliebigen Punkt 

Die Lösung dieser Aufgabe sollte uns nun bereits vor Augen schweben (wir haben sie eben 
schon kurz angeschnitten). Um ein Objekt - oder besser einen Punkt - um einen beliebigen 
Punkt auf der Ebene rotieren zu lassen, benötigen wir drei Einzeltransformationen: Zunächst 
eine Verschiebung des Koordinatenursprunges zu dem Punkt hin, den wir als Drehzentrum 
wählen (andersherum: eine Verschiebung des Bildes mit dem Drehzentrum zum Nullpunkt); 
dann eine Rotation um den Koordinatenursprung (und damit um dieses Drehzentrum); und 
schließlich eine Rückschiebung des Bildes an die originale Position. 



Bild 3.15: Zusammensetzung der Rotation um einen beliebigen Punkt aus Translationen und Rotation 


Wir haben es also mit einer Translation, einer Rotation und einer anschließenden nochmaligen 
Translation zu tun: 

P' = [(P*Ti)*R]*T2 = P*(Ti*R*T2) 

Angenommen, das Zentrum der Rotation soll sein: Z(Xz,yz), dann lautet die Translations¬ 
matrix, die Z an den Ursprung verschiebt: 

/ 1 0 0 \ 

T,(-Xz,-yz) =010 

\ -Xz -Yz 1 / 

Die Rotationsmatrix lautet, wie bekannt: 

( cos(w) sin(w) 0 \ 

-sin(w) cos(w) 0 | 

0 0 1 / 
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und die Matrix, die das Drehzentrum wieder zurückschiebt, heißt: 

/ 1 0 0 \ 

T2(xz,yz) = 0 1 0 

\ Xz yz 1 / 

Wir brauchen nun nur noch das Produkt Ti»R*T 2 dieser drei Matrizen zu bestimmen und 
erhalten: 

R'(w,Xz,yz) = T,(-Xz,-yz) * R(w) » T 2 (Xz,yz) = 

( cos(w) sin(w) 0 \ 

-sin(w) cos(w) 0 | 

-Xz»cos(w)+yz*sin(w)+Xz -X 2 »sin(w)-yz*cos(w)+yz 1 / 

Die Parameterschreibweise für die Rotation eines Punktes P(x,y) schaut dann so aus: 

x' = x*cos(w) - y*sin(w) - Xz*cos(w)+yz*sin(w)+Xz 
y' = x*sin(w) + y*cos(w) - Xz*sin(w)-yz*cos(w)+yz 

Die Rotationsmatrix R'(w) für Rotationen um beliebige Punkte sieht zwar ein wenig gewaltig 
aus, aber sie demonstriert Ihnen sicherlich sehr anschaulich, weswegen es gar keine schlechte 
Idee war, die Matrizenrechnung einzuführen. Auf diese Weise sind Sie in der Lage, jede belie¬ 
bige Kombination von Transformationen in einer einzigen Matrix zusammenzufassen und damit 
später im Programm kompakt und effizient zu progranunieren. Mit Transformationsmatrizen 
läßt sich eigentlich alles erfassen, was Sie mit einem Punkt machen wollen, sei es, ihn spiralför¬ 
mig zu drehen oder ihn auf eine andere Funktion zu legen, wie wir es im Anschluß an diesen 
Abschnitt einmal vorstellen möchten. Gleichzeitig lassen sich diese Matrizen kombinieren usw. 
Durch die Matrizenschreibweise fallt Ihnen vielleicht auch etwas an der oben Matrix R' auf. Sie 
läßt sich auch durch eine Rotation mit anschließender Translation (also ohne Start-Translation) 
ersetzen. Die Translationsmatrix enthielte dann die Werte der dritten Reihe von R'. 

Zum besseren Verständnis und natürlich zur Anschauung wollen wir unser gerade erworbenes 
Wissen gleich in einem kleinen Programm festigen: 


'XX XX 

'XX Rotation um einen xx 

'XX beliebigen Punkt xx 

'XX XX 

'xxxxxxxxxxxxxxxxxxxxxxxxx 

Koordinaten des Rotationsobjektes: 
'(Rechteck) 

xr(0) = 100 : yr(0) = 100 

xrU) = 100 : yrU) = 120 

xr(2) = 160 : yr(2) = 120 

xrO) = 160 : yv { 3 ) = 100 





74 Wir fangen klein an: 2-D-Operationen 


' Konstante Pi: 
pi = 3.141593 

' Drehzentrum Startkoordinaten: 
xz = 130 
yz = 110 

' Drehwinkel: 
w = pi/20 


'bis Taste 

'Maustaste betätigt? 

'ja -> Mauskoordinaten 
'als neues Drehzentrum 


' Hauptschleife: 
WHILE INKEY$="" 

IF M0USE(0)=1 THEN 
xz = M0USE(3) 
yz = M0USE(4) 


'4 Eckpunkt-Koordinaten transformieren: 

FOR 1=0 TO 3 
X = xr(i) : y = yr(l) 

CALL rot2.transform(w,xz,yz) 
xr(l) = xr : yr(l) = yr 
NEXT i 

CLS 'Bildschirm löschen 

PSET (xz,yz),l 'Drehzentrum zeichnen 

LINE (xr(0),yr(0))-(xr(l),yr(l)),3 
LINE -(xr(2),yr(2)),3 'Rechteck zeichnen 

LINE -(xr(3),yr(3)),3 
LINE -(xr(0),yr(0)),3 
WEND 

' Transformation (Rotation um beliebigen Punkt) 

' w - Rotationswinkel 
' xz - x-Koordlnate Drehzentrum 
' yz - y-Koordlnate Drehzentrum 

SUB rot2.transform(w,xz,yz) STATIC 
SHARED x,y,xr,yr 

si = SIN(w) 'Konstanten berechnen 

CO = COS(w) 

xr = x*co-yitsi-xz*co+yz*si+xz 
yr = x*sl+y*co-xz*sl-yz*co+yz 
END SUB 
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Sobald Sie dieses kleine Programm starten, beginnt ein einzelnes Rechteck in dem Ausgabe¬ 
fenster zu rotieren. Ein kleiner Punkt markiert dabei das Drehzentrum. Nehmen Sie die Maus 
zur Hand, richten Sie den Mauszeiger auf einen beliebigen Punkt innerhalb des Fensters und 
betätigen Sie den linken Mausknopf. Sofort wechselt das Rotationszentrum zu dem von Ihnen 
angeklickten Ort usw. Möchten Sie das Programm verlassen, dann genügt ein einziger Tasten¬ 
druck. 

Zur Funktionsweise: Ganz zu Anfang der Routine werden die vier Eckpunkte des zu drehenden 
Rechteckes in zwei Arrays (xr() und yr()) sowie das Drehzentrum in und y^, und der Dreh¬ 
winkel in w definiert. Dann geht es in die Hauptschleife, die erst wieder verlassen wird, wenn 
Sie eine beliebige Taste betätigt haben. Die Funktion MOUSE(O) meldet ein Mausereignis 
(s. Basic-Handbuch), das dazu verwendet wird, neue Koordinaten für das Drehzentrum einzu¬ 
setzen. 

Die eigentliche Transformation der vier Eckpunkte geschieht in einer kleinen FOR.. .NEXT- 
Schleife, die ihrerseits das Unterprogramm rot2.transform( ) für die Matrixmultiplikation 
aufruft. Die Konstanten si und co enthalten die Sinus- und Cosinuswerte von w. Wir hätten diese 
zwar auch einmal am Progranunanfang definieren können (und hätten damit Rechenzeit 
gespart), da sich der Winkel nie verändert. Der Übersichtlichkeit halber aber haben wir das 
unterlassen. 

Sind die vier gedrehten Punkte ermittelt, löscht das Programm den Bildschirm (bzw. das Aus¬ 
gabefenster) und beginnt die Zeichenarbeit. 

3.2.7 Ein kleiner Leckerbissen: Verformungen von Bildschirmbereichen 

Für das Verständnis von 2-D- und später 3-D-Operationen ist das folgende Kapitel zwar nicht 
unbedingt notwendig (eilige Leser können es also überschlagen), bringt Ihnen aber einen inter¬ 
essanten Nebenaspekt hautnah ins Haus. 

Sicher haben Sie das auch schon einmal gesehen: Ein Grafikprogramm projiziert einen ganzen 
Grafikblock auf eine Tonne oder verformt ihn längs einer Sinuskurve. »Wahnsinn!« werden Sie 
sagen. Doch wie einfach so etwas ist, das werden Sie im folgenden erfahren. Auch hierbei han¬ 
delt es sich wieder um Operationen, die sich - meist - in Matrizenform niederschreiben lassen. 

Oft werden die Werte einer normalen Funktion (z.B. die Sinusfunktion) berechnet und zu den 
X- bzw. y-Koordinaten jedes einzelnen Punktes eines (meist rechteckigen) Grafikblockes hinzu¬ 
addiert. Man könnte das folgendermaßen in Parameterschreibweise realisieren: 

x' = X -f f(y) 

y' = y -I- g(x) 


und in Matrixschreibweise: 


/1 

0 

0 \ 

P' = P * 0 

1 

0 

\ f(y) 

gW 

0 / 
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Statt f(y) und g(x) hätten wir genausogut f(x) und g(y) schreiben können. Wir werden hier ein 
einfaches Beispiel demonstrieren: Die Verformung eines Grafikblockes entlang einer Sinus¬ 
kurve. 

Dabei taucht allerdings noch ein weiteres Problem auf: Angenommen, der rechteckige Grafik- 
block, den wir verformen wollen, steht bereits irgendwo auf dem Bildschirm (oder im Spei¬ 
cher) . Wollen wir ihn verformen, so müssen wir jeden einzelnen Punkt dieses Blockes abfragen 
und entsprechend transformieren (verformen). Dazu verwenden wir in Basic den Befehl 
POINT, der uns die Farbe eines Bildschirmpunktes zurückgibt. Näheres zeigt Ihnen sicherlich 
folgendes Programm: 


' *X**it*****»******XitX»**»» 

'Jt* Verformung von ** 
Bildschirmblöcken 

' *5t***X**tf******»**»»*X>»X 


pi = 3.141593 

'Zeichnen des zu verformenden Bereiches: 


'Neues Füllmuster definieren: 

DIM muster/((7) 
mustert(0) = &H0 
muster%(l) = &H7444 
muster?(2) = &H4444 
mustert(3) = &H6444 
mustert(4) = &H4444 
muster;5(5) = &H7774 
PATTERN &HFFFF,muster!( 

LINE (0,0)-(300,40),3,BF 
PRINT : PRINT 

PRINT TAB(4) "Autobahnschlange 


'Größenangabe 
xq^ = 0 
yq^ = 0 
br^ = 300 
ho^ = 40 


des zu verformenden Quellblockes: 

'x-Koordinate oben links 
'y-Koordlnate oben links 
'Breite 
'Höhe 
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'Position des Zielblockes: 
xz = 10 
yz = 100 

'Funktion der Verformungskurve g(x): 

DBF FNg(x) = ampHtSIN(anzs^(x/(br^/(2*pi))) 

'Amplitude der Verformungskurve: 
ampl = 20 

'Anzahl der Schwingungsperioden pro Block: 
anzs = 1 


'Zeichenroutine: 

FOR x0=xq% TO br^-1 
FOR y0=yq^ TO ho^-1 
c% = P0INT(x0,y0) 

IF c%<0 THEN 
COLOR 1 

PRINT "Fehler!" 

PRINT "Quellbereich liegt nicht" 
PRINT "vollständig im Fenster!!!" 
GOTO Schluss 


'Punkt fUr Punkt 
'bearbeiten 

'Farbe des Quellpunktes ermitteln 

'falls gleich -1 => außerhalb des Fensters 


END IF 
COLOR c% 

X = xO-xq? 
y = y0-yq% 
y = FNg(x)+y 
PSET (xz+x,yz+y) 
NEXT yO 
NEXT xO 


'Farbe entsprechend einstellen 
'relative Quellkoordinaten berechnen 

'und Transformation (Verformung) ausführen 
'Zielpunkt zeichnen 


Schluss: 
COLOR 1 


'Muster wieder normalisieren: 

DIM mu^(l) 

mu^(O) = &HFFFF 

mu!S(l) = &HFFFF 

PATTERN ,mu5J 
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HD-VerforHuns 


an an elii an Ein elli elli eiei elli eeii Etii Ein Ein Ein an au au au ai 
au au an au an an au an au elu eui elli au au au au Ein au eil 
eilielA utobahnsolilana eauEu 
all Ein EUI Ein elli an elli elli an elu elu elli elu elli elli elli eui eui eil 

ELLI EUI ELU ELLI ELU EUI EUI ELLI Elli EUI ELLI ELLI ELLI ELLI ELLI ELLI EUI EUI EU 


an 



Bild 3.16: Verformung von Bildschirmbereichen 


Hier wird zunächst der zu verformende Quellbereich gestaltet. Ein selbstdefmiertes Füllinuster 
und etwas Text sollen Ihnen den Effekt deutlich machen. Die genauen Abmaße des zu bearbei¬ 
tenden Blockes werden festgehalten sowie die Position des Zielbereiches. Dann folgt die Defini¬ 
tion der Verformungsfunktion. 

Wie Sie vielleicht sehen, wurden hier für f(x) und g(x) folgende Funktionen eingesetzt: 
f(y) = 0 

g(x) = ampl * sin(x * . ) 

br/(2»pi) 

wobei: 

ampl Amplitude (»Ausschlag«) der Sinuskurve 

anzs Anzahl der Schwingungen in einem Grafikblock 
br Breite (in Punkten) des Grafikblockes 
X Relative x-Koordinate (relativ zum Blocknullpunkt) 

Zum x-Wert jedes einzelnen durch POINT abgetasteten Punktes wird also nichts hinzugezählt. 
Zum y-Wert jedoch addiert das Programm den Funktionswert einer Sinuskurve. Das Ergebnis 
sehen Sie auf Ihrem Bildschirm. Der Ausdruck 

anzs 

br/(2*pi) 

stellt dabei den Stauchungs- (bzw. Streckungsfaktor) der Sinuskurve dar. Sein Wert bestimmt 
also, wie lang eine Schwingungsperiode ist. Er ist so gewählt, daß Sie angeben können, über 
wie viele Schwingungen der zu deformierende Grafikblock zu »modulieren« ist. br gibt dabei 
an, wie breit dieser Block ist (wie viele Punkte also die Periode umfaßt). 
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Sie dürfen die Funktion natürlich - wie immer - beliebig ändern. Sie brauchen sich eigentlich 
auch nicht so viel Mühe zu machen, wie wir das hier taten (Sie könnten ja auch feste 
Schwinungslängen und Amplituden vorsehen). Ersetzen Sie doch beispielsweise einmal die 
Zeilen vor PSET: 

X = xO-xq^ 
y = yO-yq^ 
y = FNg(x)+y 

durch: 


'relative Quellkoordinaten berechnen 
'und Transformation (Verformung) ausf. 


xt = xO-xq^ 
yt = yO-yq^ 
ampl = 10 
br5( = 40 
X = FNg(yt)+xt 
ampl = 20 
br« = 300 
y = FNg(xt)+yt 


'relative Quellkoordinaten berechnen 

'Amplitude für x-Koordinaten 
'Höhe des Blockes 

'Verformung auch für x-Koordinaten 
'Amplitude für y-Koordinaten 
'Breite des Blockes 

'und Transformation (Verformung) ausf. 


In diesem Fall werden auch die x-Koordinaten transformiert. Das Ergebnis sollten Sie sich ein¬ 
mal anschauen. Das wirkt doch schon fast räumlich. 


Denken Sie sich doch einmal andere Funktionen aus. Hier ein paar Tips: 

Die Funktion zum Zeichnen einer halben Ellipse (s. Anfang des Kapitels), transformiert auf 
die y-Koordinate, erweckt den Anschein, der Grafikblock sei um eine Tonne gewickelt. Sie kön¬ 
nen auch später die perspektivische Projektion mit gleichzeitiger Drehung auf die Ebene des 
Quellblockes anwenden und damit den Block quasi in den Raum drehen etc. Projizieren Sie den 
Block doch einmal auf eine Kugel, auf einen Würfel o.ä. Ihrer Phantasie sind da kaum Grenzen 
gesetzt. 


3.3 2-D-Clipping oder: Fenster zur Grafik 

»Jede Grafik hat mal ein Ende« oder wie sollte dieses Kapitel eingeleitet werden? Es dreht sich 
um die Grafikgrenzen oder besser: Wie bestimme ich, wo ein Kreis, eine Linie, ein Rechteck 
endet? Nun, es geht, wie Sie vielleicht erkennen, um Grafikfenster. Wie erkenne ich, wo eine 
Linie enden muß, damit sie nicht aus einem bestimmten Grafikfenster hinausragt? Wo muß sie 
abgeschnitten, ge»clippt« werden? 

Normalerweise haben wir mit dem sogenannten Clipping nicht viel zu tun. Sobald wir mit Fen¬ 
stern (oder Layers) arbeiten, übernimmt das Betriebssystem diese Aufgabe. Trotzdem sind wir 
bei einigen Anwendungen gezwungen, diese Tätigkeit selbst zu übernehmen. Hier nun Lösun¬ 
gen für Punkte und für Linien: 
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3.3.1 Clippen von Punkten 

Die zentrale Frage beim Punkt lautet: Darf er gezeichnet werden oder nicht. Es geht also um 
ja oder nein. Ein Punkt kann nicht geteilt werden wie ein Linie oder ein Kreis. Wie also testen 
wir, ob ein Punkt innerhalb oder außerhalb eines Fensters liegt? 

Zur Vereinfachung nennen wir die Begrenzungskoordinaten eines Fensters wie folgt: 

Xmin x-Koordinate Ecke oben links 

Ymin y-Koordinate Ecke oben links 

Xmax X-Koordinate Ecke unten rechts 

ymin y-Koordinate Ecke unten rechts 



Bild 3.17: Punkt-Clipping 

Ein einzelner Punkt mit den Koordinaten x und y ist genau dann innerhalb des Fensters, wenn 
alle folgenden vier Gleichungen wahr sind: 

^ — ^min X — ^max 

y = ymin y — ymax 

Wenn nur eine einzige dieser vier Gleichungen falsch ist, dann liegt der Punkt außerhalb des 
Fensters und ist somit unsichtbar. Diesen Punkttest könnten Sie selbstverständlich für jeden 
Punkt einer Linie, eines Kreises usw. durchführen. Aber wo bleibt da die Effizienz? 


3.3.2 Clippen von Linien 

Findige Leute haben aus diesem Grunde sehr schnelle Rechenvorschriften entwickelt, um z.B. 
Linien zu clippen. Ein solcher Algorithmus ist nach seinen Entwicklern Cohen und Sutherland 
benannt und soll nun vorgestellt werden. 
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Bild 3.18: Linien-Clipping 


Der Algorithmus: 

Es gibt grundsätzlich drei verschiedene Kategorien von Linien (mit dem Startpunkt xj, yi und 
dem Endpunkt X 2 , ya), die zu bearbeiten sind: 

Kategorie 1: 

Hierzu gehören Linien, die vollständig sichtbar sind, von denen also Start- und Endpunkte 
innerhalb des Fensters liegen. Für die beiden Punkte X], yi und X 2 , gelten also die obigen 
Formeln zur Sichtbarkeit eines Punktes. Solche Linien können selbstverständlich sofort 
gezeichnet werden. 


Kategorie 2: 

Das sind Linien, die in jedem Fall völlig unsichtbar sind. Das ist der Fall, wenn auch nur eine 
einzige der folgenden Aussagen wahr ist: 


a) Xj > Xniax 

und 

X2> 

b) X] < Xmin 

und 

X 2 ^ Xmin 

C) yi > ymax 

und 

y2 > Ymax 

d) yi < ymin 

und 

y2 ymin 


Solche Linien brauchen also erst gar nicht gezeichnet zu werden. 


Kategorie 3: 

Zur Kategorie 3 gehören die Linien, die die obigen Bedingungen nicht erfüllen. Sie sind entwe¬ 
der völlig unsichtbar oder nur zum Teil sichtbar. Sie werden uns am meisten Kopfzerbrechen 
machen. 
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Im Cohen-Sutherland-Algorithmus wird nun festgestellt, zu welcher Kategorie eine Linie 
gehört. Dazu unterteilt er den Bereich, in dem die Linienendpunkte liegen können in 9 Abtei¬ 
lungen (s. Skizze): 


10 01 

1000 

10 10 

0 0 0 1 

0000 

0 0 10 

0 101 

0 10 0 

0110 


Bild 3.19: Die 9 Abteilungen im Cohen-Sutherland-Algorithmus 


Nun wird für jeden Endpunkt der Linie ein vier Bit großer Speicher angelegt. Die einzelnen 
Bits für einen Punkt werden dann nach dem folgenden Schema gesetzt (Bit = 1) oder gelöscht 
(Bit = 0): 


Bit 3 

= 1 

y ymax 

> 

0 

(Punkt liegt über dem Fenster) 


= 0 

y^ymax 

< 

0 

(Punkt liegt nicht über dem Fenster) 

Bit 2 

= 1 

ymin-y 

> 

0 

(Punkt liegt unter dem Fenster) 


= 0 

ymin“y 

< 

0 

(Punkt liegt nicht unter dem Fenster) 

Bit 1 

= 1 

X—Xmax 

> 

0 

(Punkt liegt rechts vom Fenster) 


= 0 

X^XjYiax 

< 

0 

(Punkt liegt nicht rechts vom Fenster) 

BitO 

= 1 

Xmin—X 

> 

0 

(Punkt liegt links vom Fenster) 


= 0 

Xmin^X 

< 

0 

(Punkt liegt nicht links vom Fenster) 


Bit 0 ist dabei das äußerste rechte Bit im Speicher. Falls für einen Punkt nach diesen vier Tests 
für alle 4 Bit der Wert 0 herauskommt, dann liegt er im Fenster. 


Interessant wird es jetzt bei der Erkennung der richtigen Linienkategorie. Wir können nämlich 
jetzt einfach die so erlangten 4-Bit-Werte für die beiden Endpunkte einer Linie durch ein logi¬ 
sches UND verknüpfen und gelangen dann zu den folgenden Ergebnissen: 

Kategorie 1: 

Falls beide Werte gleich Null sind (logische ODER-Verknüpfung ist Null), dann gehört die Linie 
in die Kategorie 1, ist also vollständig sichtbar. 

Kategorie 2: 

Falls die logische UND-Verknüpfung beider Werte einen Wert ungleich Null ergibt, dann gilt 
für die Linie Kategorie 2, und sie ist nicht sichtbar. 

Kategorie 3: 

Ist das Ergebnis der UND-Verknüpfung gleich Null, dann muß die Linie wahrscheinlich ge- 
clippt werden. 
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Die Fälle 1 und 2 stellen kein Problem dar: Die Linie wird gezeichnet (Fall 1) oder oder sie 
wird es nicht (Fall 2). Schwieriger wird es nur bei Kategorie 3. Diese Linien müssen wir noch 
näher untersuchen. Hierzu unterteilt der Algorithmus jede Linie nun in immer kleinere Teile. 
Dies geht solange, bis er jeden der vielen Teile dieser Linie eindeutig in eine der ersten beiden 
Kategorien einordnen kann. Hierzu gibt es unter anderem die folgenden beiden Techniken: 

Technik 1: 

Dies ist die Technik, die uns vielleicht auf den ersten Blick einlallt. Man berechnet ganz einfach 
die Schnittpunkte der zu clippenden Linie mit den Rändern des Fensters. Das kann natürlich 
sehr zeitintensiv sein. Bei rechteckigen Fenstern allerdings, bei denen die vier Seiten parallel 
bzw. senkrecht zu den Koordinatenachsen stehen, vereinfachen sich die Tests um einiges: Wie¬ 
der ziehen wir die 4-Bit-Codes der beiden Linienendpunkte von oben heran. Nach den folgen¬ 
den Kriterien können Sie dann feststellen, mit welchen Fensterrändern die Linie geschnitten 
werden muß (für eine Linie können maximal vier Fälle gleichzeitig eintreten): 


Fall 1: 

Bit3 = l: 

Schnittpunkt mit der Linie 

y Ymax 

Fall 2: 

Bit2=l: 

Schnittpunkt mit der Linie 

y =ymin 

Fall 3: 

Bitl = 1: 

Schnittpunkt mit der Linie 

^ “ ^max 

Fall 4: 

BitO= 1: 

Schnittpunkt mit der Linie 




Bild 3.20: Die Schnittpunktberechnung nach Cohen-Sutherland 


Nachdem Sie nun wissen, mit welchen Rändern die Linie geclippt werden muß, lassen Sie uns 
nun die Formeln präsentieren, nach denen die richtigen Schnittpunkte (also die neuen End¬ 
punkte der Linie) ermittelt werden können. Ausgangspunkt ist dabei die im Anhang aufgeführte 
Zwei-Punkte-Geradengleichung. 


Fall 1 und 2: 

Hier kennen Sie die y-Koordinate y des Schnittpunktes bereits, nämlich y^ax (Fall 1) oder ymin 
(Fall 2). Was bleibt, ist die unbekannte x-Koordinate x: 


X2-X1 

yz-yi 


(y-y2) + X2 
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Fall 3 und 4: 

Hier liegen die umgekehrten Verhältnisse vor. Die x-Koordinate des Schnittpunktes ist bekannt 
(Xmax für Fall 3 und x ^in für Fall 4). Gesucht ist die y-Koordinate y; 

y =-|pir * 

Für beide Formeln gilt: 

X x-Koordinate des Schnittpunktes 

y y-Koordinate des Schnittpunktes 

xi X-Koordinate des Linienstartpunktes 

yi y-Koordinate des Linienstartpunktes 

X 2 X-Koordinate des Linienendpunktes 

y 2 y-Koordinate des Linienendpunktes 

Für jede Linie müssen Sie dann also mindestens einen, höchstens aber vier Schnittpunkte 
berechnen, die die Linie in zwei bis fünf Teile zerlegen, von denen aber nur einer sichtbar sein 
kann. Welcher Linienteil das ist, das bestimmen Sie wieder mit Hilfe der 4-Bit-Berechnung. 
Die Endpunkte der verkürzten Linie kennen Sie, also sollten Sie nicht länger warten und das 
ermittelte Stück auf den Bildschirm bringen. 

Technik 2: 

Für normale Verhältnisse ist die beschriebene Rechenvorschrift eigentlich gut geeignet. In 
Assembler allerdings und bei Problemen, die möglichst schnell abzuarbeiten sind, reicht diese 
Form nicht aus. Um den richtigen Teil der Linie bzw. dessen Endpunkte zu errechnen, sind 
Divisionen und Multiplikationen mit Kommabehandlung notwendig. Das kann ein alter 
Assembler-Freak natürlich nicht dulden. Aus diesem Grunde verlangt es uns nach einer 
Methode, in der ausnahmslos Integer-Arithmetik verwendet werden kann. Mehr noch: Wir 
benötigen lediglich Integer-Additionen, -Subtraktionen und Verschiebebefehle (Division durch 
2, 4 etc.). 


Der Algorithmus läuft rekursiv ab. Zunächst teilen Sie dazu die Linie in zwei gleiche Teile. 
Den Mittelpunkt Pm(Xm,yni) einer Linie ermitteln Sie durch folgende Formeln, die leicht 
durch einfache Integer-Operationen durchzuführen sind: 


X, 4- X2 

„ _ yi+yz 

X„, 2 

ym 2 


Sie haben nun zwei Linien, für die Sie wieder die Kategorisierung (s.o.) vornehmen. Diejenigen 
Linienteile, die in Kategorie 3 fallen, werden wieder halbiert usw. Das geht so lange, bis jeder 
kleinste Linienteil eindeutig einer der ersten beiden Kategorien zuzuordnen ist. Sie wissen nun, 
welche Linien Sie zeichnen dürfen und welche nicht! Gerade für die Sprache C, die ja Rekursio¬ 
nen voll unterstützt, eignet sich dieser Algorithmus vorzüglich. Aber auch unter 68000- 
Assemblern mit den Befehlen LINK und UNLINK sind ja sehr einfach lokale Variablen und 
damit Rekursionen möglich. 





Wir fangen klein an: 2-D-Operationen 85 



Bild 3.21: Rekursive Linienhalbierung 


Lassen Sie uns eine kleine Betrachtung über die Anzahl der Schritte vornehmen, um in etwa 
abzuschätzen, wie lange es maximal dauern könnte, bis die Schnittpunkte bestimmt sind. Die 
Schrittzahl hängt natürlich zunächst einmal von der Länge der Linie ab. Sie kann durch folgende 
Formel bestimmt werden: 

2“^ = n <=> d = log 2 (n) 

wobei 

d - Anzahl der Teilungen 
n - Anzahl der Linienpunkte 
log 2 (n) - Zweier-Logarithmus von n 

entspricht. 

Ein Beispiel: Angenommen, eine Linie besitzt 256 Punkte, dann sind in maximal 
log2(256) = 8 Durchläufen die Clippunkte gefunden. Bei 512 Linienpunkten sind es maximal 
9 und bei 1024 Punkten 10 Durchläufe. Das sind doch recht annehmbare Werte. 










88 Der Einstieg in die 3-D-Welt mit Ihrem Amiga 


Nun sind wir endlich soweit. Der Sturz in die Tiefe des Raumes kann beginnen. Wir verfügen 
jetzt über die lebenswichtigen Voraussetzungen, um uns in der dreidimensionalen Welt behaup¬ 
ten zu können. Vieles, was nun folgt, wird Ihnen nicht mehr unbekannt erscheinen. Vielmehr 
werden Sie zahlreiche Bezüge zur zweidimensionalen Darstellung von Grafik feststellen. Wenn 
Sie also etwas hier nicht ganz verstehen, dann ist es sicher nützlich, ein paar Seiten zurückzu¬ 
blättern, um nachzuschauen, wie es denn in 2-D funktionierte. 

Vor der Lektüre der folgenden Kapitel sollten Sie sich unbedingt mit diesen zweidimensionalen 
Grundlagen vertraut gemacht haben, da deren Kenntnis ab nun vorausgesetzt werden muß. Na, 
denn! 


4.1 Alles ist relativ: Koordinatensysteme 

Um unsere Welt bzw. unsere imaginäre Computerwelt, die wir im Endeffekt auf unserem Moni¬ 
tor, Drucker oder Plotter etc. darstellen möchten, zu beschreiben, bedarf es eines räumlichen 
Koordinatensystems. In diesem Koordinatensystem hat jeder Punkt, jede Ecke seine genau spe¬ 
zifizierte Position. Jedes Objekt kann so in seiner Lage und Größe angegeben werden. Seine 
Farbe oder andere wichtige Merkmale für seine Darstellung werden hier allerdings nicht erfaßt. 

In einem zweidimensionalen Koordinatensystem, wie wir es bisher kennen, das nur alle Punkte 
innerhalb der Zeichenebene bezeichnen kann, benötigen wir zu Identifikation eines Punktes 
zwei Werte, die sogenannten Koordinaten. Diese Werte stellen, wie Sie alle wissen, den x- und 
y-Anteil der Position dar und wird an den senkrecht aufeinanderstehenden Koordinatenachsen 
abgelesen. 

Im dreidimensionalen Koordinatensystem gesellt sich eine dritte, die z-Achse hinzu, die 
wiederum senkrecht auf den beiden anderen Koordinatenachsen steht, also sozusagen in die 
Zeichenebene hineinragt. 



Bild 4.1: Zweidimensionales Koordinatensystem 
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Dabei existieren nun zwei verschiedene Möglichkeiten: Entweder die z-Achse ragt aus der 
Zeichenebene heraus (Rechtssystem) oder in sie hinein (Linkssystem). 



Die z-Koordinaten der beiden Koordinatensysteme unterscheiden sich also nur in ihrem Vorzei¬ 
chen. Wir werden in diesem Buch stets mit dem Linkssystem arbeiten, da es sich in der Compu¬ 
tergrafik und auch in weiten Teilen der Mathematik eingebürgert hat. Es ist allerdings kein Pro¬ 
blem, alle Rechnungen, Matrizen und Koordinaten in ein Rechtssystem zu übertragen (wie 
gesagt: x- und y-Koordinaten ändern sich nicht, nur die z-Koordinate wechselt ihr Vorzeichen). 



Bild 4.3: Einträgen eines Punktes in ein dreidimensionales Koordinatensystem 
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Wollen wir einen Punkt in einem räumlichen Koordinatensystem angeben, so benötigen wir 
dazu insgesamt drei verschiedene Werte: x-, y- und z-Koordinate (sie geben jeweils den Abstand 
des Punktes vom Koordinatennullpunkt in x-, y- und z-Richtung an). Wir geben einen 3-D- 
Punkt also wie folgt an: P(x,y,z). Im Gegensatz dazu lautete die Punktangabe unter 2-D- 
Verhältnissen stets: P(x,y). 

Normalerweise kommen wir mit einem dreidimensionalen Koordinatensystem aus, um unsere 
ganze Welt bezüglich der Lage ihrer Elemente zu beschreiben. In der Computergrafik benöti¬ 
gen wir neben diesem sogenannten Welt-Koordinatensystem, das seinen Ursprung (Nullpunkt) 
irgendwo an einer beliebigen Stelle besitzt, mindestens noch ein weiteres Koordinatensystem 
zur Darstellung räumlicher Objekte: die Bild- oder Schirmkoordinaten. Wie der Name bereits 
andeutet, handelt es sich dabei um zweidimensionale Koordinaten, die sich lediglich auf den 
Bildschirm Ihres Rechners beziehen. Der Nullpunkt liegt dabei entweder unten oder oben links 
in der Ecke. 



Bild 44: Beziehungen zwischen Welt-, View- und Bildsystem 
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Die dreidimensionalen Koordinaten des Weltsystems müssen also irgendwann einmal in die 
zweidimensionalen Schirmkoordinaten umgewandelt werden. Die dazu notwendigen mathe¬ 
matischen Operationen werden wir im Laufe dieses Kapitels noch kennenlernen. Natürlich 
spielen dabei wieder Transformationen wie Translation, Skalierung und Drehung eine entschei¬ 
dende Rolle. 

Wir bauen also unsere Welt in dem 3-D-Weltsystem auf und transformieren sie schließlich in 
die bescheidene 2-D-Welt unseres Bildschirms. 

In vielen Computerprogrammen wird zudem noch Gebrauch von einem sogenannten View- 
Koordinatensystem gemacht. Das ebenfalls dreidimensionale View-Koordinatensystem unter¬ 
scheidet sich vom normalen Weltsystem eigentlich nur in der Position seines Nullpunktes. Wäh¬ 
rend die Position des Nullpunktes im Weltsystem an beliebiger Stelle liegen kann, die Koordina¬ 
tenachsen entsprechend beliebig ausgerichtet sein können, befindet sich der Nullpunkt im 
Viewsystem genau dort, wo sich der Betrachter (View-Position) zur Zeit aufhält. Oft, nicht 
immer, liegt die z-Achse gleichzeitig noch in Blickrichmng, x- und y-Achsen verlaufen senk¬ 
recht bzw. waagerecht, bezogen auf den Beobachter. Damit besitzt der Benutzer einen anschau¬ 
lichen Bezugspunkt, nämlich sich selbst. Gleichzeitig ist klar, welchen Teil der Welt der Beob¬ 
achter betrachtet. Punkte mit negativen z-Koordinaten sind also unsichtbar. 


4.2 Datenstruktur einer Raum-Welt 

Im folgenden möchten wir den groben Aufbau einer dreidimensionalen Welt vorstellen, wie er 
in einem üblichen CAD-Programm verwirklicht wird. Bekommen Sie bitte keinen Schreck, wir 
brauchen natürlich in unseren »privaten« Anwendungen diesen Aufbau nicht vollständig zu 
übernehmen. Aufgezeigt wird hier quasi nur der Idealtyp. Es gibt natürlich noch eine Menge 
von Alternativen und Variationen, die hier nicht erfaßt werden können und zum Teil auch von 
der »kreativen Phantasie« des einzelnen Programmierers abhängen. Im Auge sollte man jedoch 
einige Standards der Datenspeicherung haben, die in diverser Fachliteratur beschrieben 
werden. 

Wir wissen nun, wie wir die einzelnen Punkte einer räumlichen Welt definieren können. Wie 
aber bauen wir eine ganze Szene auf? Wir können ja schlecht jeden Punkt einzeln angeben, 
welch Aufwand! Wir haben bereits gesehen, daß wir zwei Punkte durch eine Linie verbinden 
können und dabei nicht jeden einzelnen Punkt dieser Linie anzugeben brauchen. Es werden 
lediglich die beiden Endpunkte gespeichert und angegeben, daß sie durch eine Linie verbunden 
werden. Aus vielen Linien errichten wir dann ein ganzes Bild. Um auch ungerade Konturen 
darstellen zu können, schließen wir andere Konturelemente mit ein: Kreis, Ellipse, Kurvenzug 
etc. Für diese Elemente reichen uns natürlich nicht zwei Punkte. Beim Kreis beispielsweise sind 
ein Mittelpunkt und ein Radius, bei der Ellipse ein Mittelpunkt und zwei Radien anzugeben, 
eventuell noch Start- und Endwinkel für Kreis- und EUipsenbögen usw. 

In räumlichen Systemen reicht das jedoch nicht mehr. Hier schließen 3-D-Programme viele sol¬ 
cher Konturelemente zu ganzen Flächen zusammen. Eine Fläche kann also von mehreren 
Linien oder Kombinationen von Linien und Kreisbögen etc. begrenzt werden. So, wie ein Punkt 
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zu mehreren Linien gehören kann, kann ein Konturelement von mehreren Flächen in Anspruch 
genommen werden. Viele dreidimensionalen Probleme (z.B. das Eliminieren von verdeckten 
Linien und Flächen oder die Schattierung von Flächen) setzen das Vorhandensein solcher 
Flächendefinitionen voraus. 

Mehrere Flächen wiederum bilden zusammen ein sogenanntes Objekt (Quader, Kugel, Kegel, 
Pyramide...). Mehrere Objekte dürfen entsprechend zu höheren und komplexeren Objekten 
zusammengeschlossen werden. Damit haben wir ein recht kompliziertes, aber äußerst effizien¬ 
tes baumartiges Datensystem, das wir bei den räumlichen Berechnungen zu berücksichtigen 
haben. Dieses objektorientierte System hat entscheidende Vorteile. Objekte brauchen nur ein¬ 
mal entworfen zu werden. Sie können dann in eine Objektbibliothek auf Disk oder Harddisk 
gespeichert werden. Diese fertigen Objekte kann der Anwender dann jederzeit in sein Bild ein¬ 
bauen, sie vergrößern, verkleinern, verschieben, rotieren etc. Ein solches eingebautes Objekt 
kann aber auch jederzeit wieder geändert oder gar entfernt werden. Ein Maximum an Flexibili¬ 
tät ist gewährleistet. 

In CAD-Systemen werden Bilder konstruiert, indem die verschiedensten Grundobjekte wie 
Quader, Würfel, Kegel etc. zu komplexen Gebilden zusammengesetzt werden. Die Anwender 
sind in der Lage, solche Gebilde (z.B. ein Haus) wiederum zu Objekten zu erklären und diese 
ihrerseits zur Konstruktion noch komplexerer Objekte zu verwenden (eine ganze Stadt bei¬ 
spielsweise) usw. Der Anwender eines CAD-Programmes sieht also nur die einzelnen Objekte 
und hat mit den Elementen eines Objektes (Flächen, Linien, Punkte nichts mehr zu tun). 

Nehmen wir das Beispiel einer kleinen Häusersiedlung; Diese moderne Siedlung besteht aus 
lauter identischen Objekten, den Häusern. Jedes einzelne Haus ist, wie Häuser aus Bauklötzen, 
zusammengesetzt aus verschiedenen Grundobjekten (Dach, ein Quader als Gebäudeteil...) 
oder weiteren zusammengesetzten Objekten. Jedes dieser Grundobjekte wiederum besteht aus 
den begrenzenden Flächen, die ihrerseits von den umgebenden Kanten definiert werden. In der 
untersten Ebene stehen die Endpunkte der Kanten bzw. die anderen bestimmenden Parameter 
wie Radius bei Kreisen o. ä. 

Da der Benutzer nur noch mit frei verschiebbaren, kopier- und duplizierbaren Objekten han¬ 
tiert, ist es sinnvoll, für jedes Objekt ein eigenes Koordinatensystem einzurichten. Damit brau¬ 
chen wir nur noch eine Koordinate anzugeben, wenn wir die Position dieses Objektes im Welt¬ 
system oder, bei Unterobjekten, im übergeordneten Objektsystem festlegen möchten, nämlich 
die Koordinate des Objektsystem-Nullpunktes. Hinzu kämen noch die Winkel der Objekt¬ 
systemachsen zu den jeweiligen Weltsystemachsen (bzw. zu den Objektsystemachsen des über¬ 
geordneten Objektes). 

Innerhalb dieses Objekt-Koordinatensystems sind nun die verschiedenen Unterobjekte und Ele¬ 
mente (Flächen, Punkte,...) positioniert, aus denen sich das Objekt zusammensetzt (alles 
natürlich bezüglich des Objektsystems). Erst wenn die Welt tatsächlich gezeichnet werden soll, 
werden die objektinternen Koordinaten in die Koordinaten des übergeordneten Objektsystems 
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Bild 4.5: Ein Objekt im Weltsystem 


und letztendlich in Weltkoordinaten umgerechnet. Auf diese Weise bleibt ein Objekt jederzeit 
sehr einfach in der »Welt« zugriffsföhig (verschiebbar, löschbar etc.). 

Die Daten einer typischen »Welt« sehen also etwa so aus: 

Zunächst existiert ein Hauptdatenblock namens »Welt«. Hier sind einfach die Namen (oder 
Nummern etc.) der Hauptobjekte eingetragen, aus denen die Welt besteht (das kann vielleicht 
nur ein einziges sein, das wiederum aus mehreren Objekten besteht). Hinzu kommen die 
Koordinaten, an denen sich diese Objekte im Weltsystem befinden. Aus jedem Eintrag muß 
erfahrbar sein, wo die Daten zu finden sind, die das jeweilige Objekt näher beschreiben (z.B. 
ein Zeiger auf eine Objekt-Datenstruktur): 

Datenstruktur »Welt«: 

- Kopfstruktur von »Welt« (z.B. Name der Welt, Anzahl der Objekte etc.) 

- Name des ersten Objektes 

- Zeiger auf die Datenstruktur dieses Objektes 

- Koordinaten des Objektes 

- Name des zweiten Objektes 

- Zeiger auf die Datenstruktur dieses Objektes 

- Koordinaten des Objektes 

- Name des dritten Objektes 


Jedes zusammengesetzte Objekt wird nun durch einen ähnlichen Datenblock beschrieben: 
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Datenstruktur »zusanunengesetztes Objekt«: 

- Kopfetruktur von »zusammengesetztes Objekt« 

Z.B.; 

- Name des Objektes 

- Art des Objektes (zusammengesetzt oder Grundobjekt) 

- Anzahl der Unterobjekte 

- Flags wie: Objekt sichtbar? ja/nein 

- Translationsmatrix 

- Skalierungsmatrix 

- Rotationsmatrix 
etc. 

- Name des ersten Unterobjektes 

- Zeiger auf die Datenstruktur dieses Unterobjektes 

- Koordinaten des Unterobjektes 

- Name des zweiten Unterobjektes 

- Zeiger auf die Datenstruktur dieses Unterobjektes 

- Koordinaten des Unterobjektes 

- Name des dritten Unterobjektes 

Die Grundobjekte dagegen setzen sich nicht mehr aus Unterobjekten zusammen. Sie bestehen 
vielmehr aus einzelnen Flächen: 


Datenstruktur »Grundobjekt«: 

- Kopfstruktur von »Grundobjekt« 

Z.B.: 

- Name des Objektes 

- Art des Objektes (zusammengesetzt oder Grundobjekt) 

- Flags wie: Objekt sichtbar? ja/nein 

- Translationsmatrix 

- Skalierungsmatrix 

- Rotationsmatrix 
etc. 

- Zeiger auf die Defmitionsstruktur der ersten Fläche 

- Zeiger auf die Defmitionsstruktur der zweiten Fläche 

Die Kopfstruktur (Header) eines Objektes enthält zum Teil sehr wichtige Informationen. Da 
die Koordinaten der verschiedenen Teile eines Objektes (Unterobjekte, Punkte, Linien, 
Flächen etc.) fest und nicht (außer bei direkten Objektänderungen) veränderbar sein sollten, 
müssen wir angeben, um welche Werte das gesamte Objekt bezüglich dem übergeordneten 
Koordinatensystem bzw. dem übergeordneten Objekt (z.B. Weltsystem) verschoben, vergrößert 
oder rotiert sein soll. Dies geschieht mit Hilfe der angegebenen Transformationsmatrizen. 
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Dieses System hat entscheidende Vorteile. Zum einen bleiben alle Objekte fix und brauchen 
nur einmal definiert zu werden, auch wenn sie mehrmals im Bild auftauchen. Das spart einiges 
an Speicherplatz. Zum anderen brauchen nicht alle Koordinaten eines Objektes und aller seiner 
Unterobjekte bei einer Transformation des gesamten Objektes neu berechnet werden. Erst 
wenn ein Objekt auf dem Bildschirm dargestellt werden muß, werden die Punkte transformiert, 
die zu zeichnen sind. Das vereinfacht die Programmierung erheblich. 

Oft ist es sinnvoller, die Transformationsmatrizen nicht in der Objektstruktur selbst, sondern 
vielmehr in der Strukmr des übergeordneten Objektes anzugeben. Aber das hat der Program¬ 
mierer nach seinen Erfordernissen selbst zu entscheiden. 

In den beiden Objektstrukturen wird also ersichtlich, aus welchen Flächen sich das Grundob¬ 
jekt zusammensetzt. Das kann z.B. auch nur eine einzige Fläche sein, wie bei einer Kugel oder 
einer einfachen Platte. Damit stehen wir vor dem Problem, eine Definitionsstrukmr für eine 
beliebige Fläche zu schaffen: 

Datenstruktur »Fläche«: 

- Kopfstruktur von »Fläche« 
z.B. Art der Fläche: 

- Ebene, die sich aus Kanten zusammensetzt 

- Kugel, Ellipsoid, bei denen nur noch Mittelpunkt und Radien angegeben werden müssen 

- gebogene Fläche, die durch eine Funktion oder diverse Stützpunkte bestimmt wird 
(B-Splines, ...) 

- Näher bestimmende Eigenschaften je nach Flächenart 
Z.B.: 

- Zeiger auf die Definitionsstruktur der ersten Kante 

- Zeiger auf die Definitionsstruktur der zweiten Kante 

oder: 

- Mittelpunktskoordinaten 

- Kugelradius 

Wie Sie sehen, wird hier bereits nach der Art der Fläche differenziert. Die am meisten verwand¬ 
ten Flächenarten sind die ebenen, viereckigen Flächen, die sich aus vier Kanten zusammenset- 
zen. Es sind jedoch noch eine ganze Menge anderer Flächentypen denkbar (z.B. Kugel, Halb¬ 
kugel etc.). Auch sie müssen in der Flächenstruktur erfaßt werden. Meist aber beschränkt man 
sich, wie gesagt, auf die einfach zu handhabenden planen Flächen (Kugeln können z.B. eben¬ 
falls aus solchen Flächen angenähert werden). 

Diese planen Flächen setzen sich dann aus verschiedenen Kanten (mindestens drei) zusammen, 
für die ihrerseits je zwei Kantenendpunkte angegeben werden müssen: 

Datenstruktur »Kanten«: 

- Nummer des ersten Endpunktes 

- Nummer des zweiten Endpunktes 
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Erst bei den durchnumerierten Endpunkten sind dann Koordinaten zu finden (natürlich relativ 
zum jeweiligen Objekt-Koordinatensystem). 

Wenn wir in den obigen Strukturen von »Zeigern« gesprochen haben, dann dürfen das natürlich 
- wie bei den Kanten - auch Nummern o.ä sein. Auch dürfen Sie die verschiedenen Datenstruk¬ 
turen zusammenfassen, wenn es Ihnen nutzt. Die höheren Strukturen (Objekte, Flächen etc.) 
sind auch wegzulassen, wenn es beispielsweise nur um ein sogenanntes Drahtmodell eines 
Objektes geht usw. Auch sollten Sie darauf achten, daß Ihr Objekte- und Strukturensystem nicht 
zu kompliziert wird, da das alles bei vielleicht noch hinzukommender etwas ungeschickter 
Organisation die Rechenzeit teilweise erheblich erhöhen kann. 

Sie werden Teile des obigen Datensystems auch in diesem Buch immer wieder vorfinden, da 
es sich allgemein als sehr sinnvoll herausgestellt hat. 


4.3 Mathematische Grundlagen zu 3-D-Berechnungen 

Die Rechnung mit Matrizen und ihre Verwendung in der Computergrafik kennen Sie nun bereits 
aus dem 2-D-Kapitel. Für viele mathematische Ableitungen ist aber eine weitere Technik nicht 
fortzudenken: Die Vektorrechnung. 

Es existieren zwar verschiedene mathematische Methoden zur Ableitung der unterschiedlich¬ 
sten grafischen Figuren und Effekte. Die Vektorrechnung aber scheint mir (und nicht nur mir) 
dabei die anschaulichste und auch einfachste Form der Darstellung zu sein, wie Sie gleich sehen 
werden. Wir werden uns hier ein wenig intensiver mit ihr beschäftigen. Sollten Sie schon etwas 
auf diesem Gebiete bewandert sein, dann entschuldigen Sie bitte die oft recht unmathematische 
Ausdrucksweise, die dafür aber um so verständlicher ist. 

a) Was ist ein Vektor? 

Stellen Sie sich unter einem Vektor einfach einen Pfeil vor, der in eine bestimmte Richtung 
zeigt und eine festgelegte Länge besitzt. Um einen Vektor zu identifizieren, brauchen wir 



Bild 4.6: Ein Vektor parallelverschoben in der Ebene und im Raum 
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also nur zwei Parameter anzugeben: die Richtung und die Länge. Dieser Pfeil kann nun 
allerdings irgendwo auf der Zeichenebene (oder im Raum) liegen, ohne daß sich diese 
beiden Parameter ändern. Man spricht trotzdem stets vom selben Vektor (s. Abb.). Sie 
können also den Pfeil beliebig auf der Ebene oder im Raum verschieben. Es bleibt ein und 
derselbe Vektor, wenn sich nur die Länge und die Richtung nicht ändern. Man bezeichnet 
den Startpunkt eines Vektors auch als Fußpunkt, den Endpunkt als Spitze. 

Wir werden in Zukunft Vektoren immer mit einem kleinen nach rechts gerichteten Pfeil 
(z.B.: v) kennzeichnen. Einfache Zahlen sind hingegen normal gedruckt. 

Hat ein Vektor die Länge Eins, dann nennt man ihn den Einheitsvektor. Der Nullvektor hat 
die Länge Null, seine Richtung ist unbestimmt. 

Man kann mit Vektoren sogar rechnen: Die Richtung eines Vektors wechselt beispielsweise 
in die entgegengesetzte Richtung, indem wir sein Vorzeichen ändern (-v). v und -v nennt 
man auch antiparallel (sie sind parallel und zeigen in entgegengesetzte Richtungen): 




Bild 4.8: Koordinatenschreibweise eines Vektors 


Man kann einen Vektor v auch alternativ durch einfache Koordinaten angeben. Dabei wird 
angenommen, daß sich der Fußpunkt des Vektors im Koordinaten-Nullpunkt befindet (wir 
können ihn ja beliebig verschieben). Als Koordinaten des Vektors werden dann nur die Ko¬ 
ordinaten der Spitze angeführt (wir kommen also auch hier mit zwei Parametern für die 
Ebene und dreien für den Raum aus): 


.-=1 

C:) 

1 

oder im Raum: 

V = 

''y 

Vz 
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Diese Koordinatenschreibweiseistsehr wichtig, da wirinProgrammenletztendlichnurmitihr 
rechnenwerden.MitRechtwerdenSieParallelenzudenPunktmatrizenfests teilen. Ein Vektor 
kann auch als eine Art Matrize angesehen werden. Trotzdem sollten sie die beiden mathe¬ 
matischen Begriffe nicht verwechseln, da sie völlig unterschiedlich zu handhaben sind. 


Die Länge eines Vektors ist sein Betrag (quasi eine Absolutfunktion für Vektoren). Sie kann 
durch folgende Formel berechnet werden, die wir uns gut merken sollten, da wir sie noch 
brauchen werden: 



Zu Recht sehen Sie Ähnlichkeiten mit dem Satz des Pythagoras. Aus der obigen Skizze kön¬ 
nen Sie die Formel herleiten. 


Bei räumlichen Vektoren sieht das Ganze so aus: 

Ivl "" I ''yj "" \' ^ 

Man kann mit Vektoren - wie gesagt - auch rechnen. Dabei gelten besondere Rechen¬ 
gesetze, die wir hier natürlich nicht beweisen möchten: 

b) Multiplikation mit einer Zahl: 

So ist es möglich, einen Vektor mit einer einfachen Zahl a zu multiplizieren. Das darf nicht 
mit dem weiter unten vorgestellten Skalarprodukt verwechselt werden! Grafisch ist darunter 
die Verlängerung oder Verkürzung des betreffenden Vektors v zu verstehen. Das Ergebnis 
ist also ebenfalls ein Vektor. Er besitzt die Länge a*lvl. Ist a negativ, so kehrt sich gleich¬ 
zeitig noch die Richtung des Vektors um. Bei a = 0 ist das Ergebnis der Nullvektor: 



Bild 4,9: Multiplikation mit einer Zahl Bild 4.10: Vektoraddition 
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im Raum: 




' a*V: 

a*v = a * 1 

Vy 


a*v, 


UzZ 


( a*V; 


In diesem Zusammenhang ist ein weiterer Begriff von Wichtigkeit: die lineare Unabhängig¬ 
keit von Vektoren. Zwei Vektoren sind genau dann linear unabhängig, wenn man den einen 
nicht durch eine Multiplikation mit einer einfachen Zahl in den anderen umwandeln kann. 
Mit anderen Worten; wenn sie nicht parallel oder antiparallel liegen. Linear abhängig oder 
besser kollinear sind demnach zwei Vektoren, die die gleiche Richtung (oder entgegenge¬ 
setzte Richtungen), aber nicht unbedingt die gleiche Länge besitzen. 


c) VektoradditionZ-subtraktion: 


Wir können zwei Vektoren v und w auch addieren und subtrahieren. Das Ergebnis ist 
ebenfalls ein Vektor. Wollen wir eine solche Addition grafisch darstellen, dann brauchen wir 
nur den Fuß des Vektors w an die Spitze des Vektors v zu verschieben. Der resultierende 
Vektor geht dann einfach vom Fuß des Vektors v bis zur Spitze von w (s. Bild 4.10). In 
Koordinatenschreibweise sieht das Ganze dann so aus: 



Das Subtrahieren zweier Vektoren geht ebenfalls sehr einfach und entspricht praktisch der 
Addition. Bei der Zeichnung kehren wir einfach das Vorzeichen des zweiten Vektors um 
(-W => Richtungswechsel) und addieren die beiden dann (v-l-(-w)). 
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(::)■ 

^ / Vx-Wx 
\ Vy-Wy 

Im Raum: 



/ Vx-Wx 

V-Hw = 1 Vy 1 - 

Wy = 

1 


\ Wz/ 

\ Vz-Wz 


Rechengesetze: 


V-bW = W-bV 

v-b(w-bü) = (v-bw)-bO 

a»(b»v) = (a*b)*v 

a*(v-bw) = a*v + a*w 
la*vl = lal*lvl 

(a-bb)»v = a»v -b b*v 


d) Skalarprodukt: 

Wir können zwei Vektoren v und w auch miteinander multiplizieren. Dabei gibt es aller¬ 
dings zwei Möglichkeiten. Beim sogenannten Skalarprodukt v*w (sprich: v mal w) ist das 
Ergebnis eine einfache Zahl (Skalar), beim Vektorprodukt vxw (sprich: v kreuz w) dage¬ 
gen wieder ein Vektor. 

Das Skalarprodukt ist wie folgt definiert: 

v*w = lvl*lwl»cos(a) 

Dabei ist a der Winkel zwischen den beiden zu multiplizierenden Vektoren. Die Beträge von 
V und w sind - das ist bereits bekannt - die Längen der beiden Vektoren. Für die Koordi¬ 
natenschreibweise gilt: 

V»W = Vx«Wx + Vy*Wy 

bzw. für räumliche Vektoren: 

V*W = Vx*Wx + Vy»Wy + 

Das sieht sehon einfacher aus und sind auch die Formeln, die später für uns wesentlich 
werden! 


Eine wichtige Anwendung des Skalarproduktes ist die Berechnung des Winkels a zwischen 
zwei Vektoren durch Umstellung der obigen Formel: 


v»w = 
cos(a) = 


Ivl *lwl *cos(a) 
V * w 

Ivl » Iwl 


<=> 


<=> 


cos(a) = 


_ Vx*Wx + Vy*Wy + Vz*W^ _ 

[/'( (Vx^ + Vy2 + Vx2) . (Wx^ -f- Wy2 -I- Wx^) ) 


Bei Vektoren in der Ebene setzen Sie Vz und Wz einfach gleich Null. 










Der Einstieg in die 3-D-Welt mit Ihrem Amiga 101 


Sehr wichtig für unsere Belange ist auch eine andere Eigenschaft des Skalarproduktes. 
Sobald die beiden zu multiplizierenden Vektoren nämlich senkrecht aufeinanderstehen, 
wird der Cosinus ihres Winkels (Cosinus von 90 Grad) gleich Null und damit das gesamte 
Produkt: 

v«w = 0 für: V steht senkrecht auf w 

Wir können so auf einfache Weise feststellen, ob zwei Vektoren aufeinander senkrecht 
stehen. 

Es gibt natürlich unendlich viele Vektoren, die auf einem anderen Vektor senkrecht stehen. 
Es gibt in der Ebene aber nur zwei, die gleichzeitig dieselbe Länge besitzen (das kann man 
aus der Koordinatenschreibweise des Skalarproduktes berechnen): 

Ausgangsvektor: v = j 

\ Vy 

Darauf stehen senkrecht und haben die gleiche Länge: 

s, - und V, - 

Für den Raum existieren allerdings weitaus mehr Möglichkeiten. 

Rechengesetze: 

v«w = w*v 
(a*v)»'w = a*(v*w) 
v»(w+ü) = v»w + v«u 
v*v = v^ 

= IvP 

Es gilt aber nicht unbedingt: 
v»(w*ü) = (v»w)*5 

Mit anderen Worten: Sie müssen darauf achten, die Skalarmultiplikationen stets in der rich¬ 
tigen Reihenfolge auszuführen! 

e) Vektorprodukt: 

Das Vektorprodukt haben wir bereits erwähnt. Es ist die Art der Multiplikation zweier Vek¬ 
toren, die wieder einen Vektor zum Ergebnis hat. Dieser neue Vektor p = vxw hat eine 
Länge von: 

Ipl = Ivxwl = lvl*lwl*sin(a) 

Dies ist übrigens auch der Flächeninhalt des von v und w aufgespannten Parallelogramms 
(s. Bild 4.12). p steht auf den beiden Vektoren v und w senkrecht, ragt also in den Raum 
hinein (v, w und p ergeben ein rechtshändiges System). Einen senkrechten Vektor nennt 
man auch Normalvektor. 
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Mathematisch ist es wie folgt definiert: 

p = vxw = 

' Vy*Wz - V2*Wy ^ 

Vz*Wx - Vx*Wx 

k Vx*Wy - Vy+Wxj 


Rechengesetze: 

vxw = 

(a*v)xw = 
vx(w-l-ü) = 
vxw = 

vxv = 

-(wxv) !!! 

a»(vxw) 

vxw -t- vxü 

Nullvektor (falls v zu w parallel bzw. antiparallel ist) 

Nullvektor 


f) Punktdarstellung durch Vektoren: 


Das System der Vektoren ist sehr flexibel. Das zeigt uns z.B. die Art und Weise, wie wir 
einen einzelnen Punkt in einem Koordinatensystem auch durch die Vektorschreibweise ohne 
Probleme darstellen können (hier treffen sich Matrizen und Vektoren). 

Der Trick ist ganz einfach: Man denke sich zunächst einen Punkt P mit den Koordinaten 
P(x,y). Weiter stelle man sich einen Vektor v vom Koordinaten-Nullpunkt bis zum 
gewünschten Punkt P im Koordinatensystem vor. Dieser Vektor kann in der Koordinaten¬ 
schreibweise bekanntlich so angegeben werden: 

V = I y j bzw.: V = 




Bild 4.13: Punktdarstellung durch Vektoren Bild 4.14: Vektorielle Geradengleichung 

X, y und z sind schließlich die Koordinaten des Punktes. Statt mit dem Punkt selbst, rechnen 
wir also einfach mit dem Vektor zu diesem Punkt, ohne irgendwelche Probleme zu bekom¬ 
men. Wir können sogar den Vektor v auch umbenennen in P: 
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^ =(y) 

bzw.: 

P = 1 





iz/ 


Mit P (steht ja eigentlich für den Punkt P) rechnen wir genauso wie mit normalen Vektoren 
- und davon werden wir regen Gebrauch machen. 

g) Liniendarstellung durch Vektoren: 

Wichtig für geometrische Berechnungen, wie wir sie vor uns haben, sind natürlich Linien 
bzw. Geraden. Aus diesem Grunde stellen wir hier einmal vor, wie eine zweidimensionale 
Gerade in Vektorform dargestellt werden kann. Betrachten Sie dazu am besten Bild 4.14. 

Vektorielle Geradengleichung (sie gilt sowohl für die Ebene als auch für den Raum): 

g: p = Po + t*a 

oder in Koordinatenschreibweise: 

^ /pox + t*ax\ 

\poy + t*ay/ 

Daraus kann man einfacher auch zwei Gleichungen machen, indem wir x- und y- 
Komponenten getrennt berechnen: 

g: Px = Pox + t*ax 

Py = Poy + t*ay 

Im Raum gesellt sich die z-Koordinate hinzu: 
g; Px = Pox + t*ax 

Py = poy + t*ay 

Pz = Poz + t»ax 

Dabei bedeuten: 

p - Vektor vom Koordinatenursprung zu dem zu berechnenden Punkt P der Geraden 
(oder einfach: Punkt P) 

Po - Vektor vom Koordinatenursprung zu einem beliebigen Punkt Po der Geraden 
(oder einfach: Punkt Po) 

ä - »Richtungsvektor«, beliebiger Vektor parallel zur Geraden 
t - Faktor zur »Verlängerung« (oder Verkürzung) des Vektors a, um Punkt P zu 
erreichen 

Das kleine »g:« bedeutet, daß wir es hier mit einer Geradengleichung zu tun haben. Der 
Punkt (oder besser Vektor) p steht damit stellvertretend für alle Punkte der Linie. 
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Wir gehen also von einem Startpunkt Po auf der Geraden aus (es kann eigentlich jeder 
beliebige Punkt der Geraden dazu verwendet werden). Da Punkte jetzt und in Zukunft 
immer als Vektoren vom Koordinaten-Nullpunkt zum betreffenden Punkt ausgedrückt wer¬ 
den (s.o.), resultiert aus diesem Punkt der Vektor po (wir haben hier der Einfachheit halber 
und in völlig unmathematischer Weise Punkt und Vektor denselben Namen gegeben, da wir 
später nicht mehr zwischen Punkt und Vektor unterscheiden wollen). Von diesem Punkt aus 
ziehen wir einen zweiten Vektor a in Richtung der Geraden (auch dieser Vektor ist eigent¬ 
lich beliebig gewählt und muß nur auf der Geraden liegen - egal wie lang er ist). Dieser 
Vektor gibt uns die Richtung an, in die die Gerade verläuft. Um nun einen beliebigen Punkt 
P auf der Geraden zu berechnen, müssen wir diesen Richtungsvektor nur noch mit einem 
Faktor t multiplizieren. Die beiden resultierenden Vektoren po und t*ä werden addiert und 
ergeben den Ergebnisvektor p, dessen Parameterform uns direkt die Koordinaten des 
Linienpunktes P angibt. 

Um eine ganz bestimmte Gerade zu bestimmen, brauchen wir also lediglich die Parameter 
Po und ä anzugeben. Aus beliebigen Werten für t errechnen sich dann alle Punkte P (bzw. 
Vektoren p) der Gerade. 

h) Schnittpunkt zweier Geraden: 

Wir können mit diesem Wissen auf einfache Weise den Schnittpunkt zweier Geraden in der 
Ebene berechnen. Angenommen wir haben zwei Geraden g und h mit den folgenden Glei¬ 
chungen: 

g: p = Po + t*a 
h: q = qo -i- s»b 

Da wir einen einzigen Punkt suchen, der auf beiden Geraden liegt, für den also p und q 
gleich werden, können wir die beiden Gleichungen auch gleichsetzen: 

Po + t*ä = qo + s*b 

In Koordinatenschreibweise (in der Ebene können Sie die z-Parameter wie immer gleich 
Null setzen und damit weglassen): 



oder: 

Pox + t*ax = qox + s*bx und 

Poy + t*ay = qoy + s*by und 

Poz + t*az = qoz + s*bz 

Da wir die Parameter pox, Poy, Poz, ^x., »z sowie qx, qy, qz, bx, by und b^ kennen (sie legen 
ja die beiden Geraden fest), müssen wir nur noch t und s bestimmen, um den Schnittpunkt 
P bzw. Q zu errechnen. Wir lösen zwei der Gleichungen also nach einer der beiden Variablen 
auf (hier nach t): 
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t = 
und; 


qox + s*bx - pox 
ax 


^ = qoy + s*bv - poy 
% 

Die beiden Gleichungen setzen wir wieder gleich, wodurch wir t eliminieren und s ausrech¬ 
nen können. Das ausgerechnete s fügen wir dann in eine der Ausgangsgleichungen ein, um 
t zu ermitteln, s und t ergeben dann den Schnittpunkt, falls er existiert. Im Raum müssen 
wir die beiden Werte nämlich zunächst noch in die dritte Gleichung (hier die Gleichung mit 
den z-Parametern) einsetzen. Ergibt die Einsetzung eine wahre Aussage, so ist der Schnitt¬ 
punkt perfekt. In der Ebene brauchen wir keine z-Koordinate und damit ist dieser letzte Test 
überflüssig. Zu keiner eindeutigen Lösung kommt es auch in der Ebene, wenn die beiden 
Geraden parallel verlaufen. 


i) Ebenendarstellung durch Vektoren: 

Speziell für unsere dreidimensionalen Belange ist es sinnvoll, auch Ebenen im Raum durch 
Vektoren zu definieren. Die Gleichung für eine Ebene ähnelt dabei der einer Geraden, wie 
wir sie oben kennengelernt haben: 

e: p = Po -I- s*ä -1- t»b 

oder in Koordinatenschreibweise: 

( Pox \ / ax \ / bx 

Poy + s*| ay I -b t»l by 

POz / \ } \ bz 

( Pox + s*ax -b t*bx \ 

Poy + s*ay -b t*by j 

Poz + s«az -b t*bz / 

Daraus kann man - wie bei den Geraden - auch drei Gleichungen machen, indem wir x-, 
y- und z-Komponenten getrennt berechnen: 


Px 

= POx 

-b 

s*ax 

-b 

t*bx 

Py 

= POy 

-b 

s*ay 

-b 

t*by 

Pz 

= POz 

-b 

s*az 

-b 

t^bz 


Dabei bedeuten: 

p - Vektor vom Koordinatenursprung zu dem zu berechnenden Punkt P der Ebene 
(oder einfach: Punkt P) 

Po - Vektor vom Koordinatenursprung zu einem beliebigen Punkt Pq der Ebene (oder 
einfach: Punkt Po) 

a,b - Beliebige, linear unabhängige Vektoren auf der Ebene 

s,t - Faktoren zur »Verlängerung« (oder Verkürzung) der Vektoren a und b, um Punkt 
P zu erreichen 
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Das kleine »e:« bedeutet, daß wireshiermit einer Ebenengleichung zu tun haben. Der Punkt 
(oder besser Vektor) p steht damit stellvertretend für aUe Punkte der Ebene. 



Bild 4.15 Vektorielle Ebenengleichung 1 


Ähnlich wie bei der Definition einer Geraden (s.o.) gehen wir von einem beliebigen Start¬ 
punkt Po auf der Ebene aus. Ausgehend von diesem Punkt ziehen wir zwei Vektoren 
(s. Vektoraddition), die auf der gewünschten Ebene liegen und linear unabhängig sein müs¬ 
sen. »Linear unabhängig« (s.o.) heißt in diesem Fall, daß die beiden Vektoren nicht parallel 
oder antiparallel sein dürfen (die Länge spielt dabei keine Rolle). Die beiden Vektoren errei¬ 
chen nun entsprechend verlängert oder verkürzt jeden beliebigen Punkt auf der Ebene (in 
etwa vergleichbar mit dem Zeichenarm eines Zeichenbrettes). Die Verlängerung bzw. Ver¬ 
kürzung erreichen wir durch entsprechende Wahl der Faktoren s und t. Die drei resultieren¬ 
den Vektoren po, s*ä und t*b ergeben dann addiert den Ergebnisvektor p zu dem gesuchten 
Ebenenpunkt. 

Um eine ganz bestimmte Ebene zu zeichnen, brauchen wir also lediglich die Parameter po, 
ä und b anzugeben. Aus beliebigen Werten für s und t errechnen sich dann alle Punkte P 
(bzw. Vektoren p) der Ebene. 

Diese Form der Ebenendarstellung ist besonders bei Schnittpunktberechnungen allerdings 
oft nicht besonders günstig, da wir stets mit drei Vektoren (po, a und b) rechnen müssen 
und meist ein unbequemes Gleichungssystem mit drei Unbekannten und drei Gleichungen 
erhalten. Dem wird meist durch eine andere Form der Ebenengleichung Rechnung getra¬ 
gen, die mit der Ebenennormalen (also dem senkrechten Vektor zur Ebene) operiert. Sie 
lautet: 

e: (P-Po)*n = 0 
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oder eine dieser Gleichungen: 

e: (P-Po)*h = 0 <=> 

P*n - Po*n = 0 <=> 

Po*n - P*n = 0 <=> 

P*n = Po*n 

oder in Koordinatenschreibweise: 

( Px - Pox\ / \ 

Py - Poy * I ny j = 0 
Pz - Poz / \ Hz / 

Da wir es hier mit einer Skalarmultiplikation zu tun haben, ist das Ergebnis von (P-Po)*n 
eine Zahl. Wir erhalten gemäß der Definition des Skalarproduktes: 

e: (Px-Pox)*nx + (py-poy)*ny + (pz-po2)*nz = 0 

oder: 

e: Px*nx + Py*ny + pz*nz = pox*nx + poy*ny + poz*nz <=> 

e: px»nx + Py*ny + pz»nz = d 
wobei: 

P - zu berechnender Punkt der Ebene 

Po - beliebiger Fixpunkt der Ebene 

n - Ebenennormale (senkrechter Vektor zur Ebene) 

d - Kürzel für d = pox*nx + Poy*ny + poz*nz 



Bild 4.16: Vektorielle Ebenengleichung 2 


Und das ist auch schon das Geheimnis dieser Ebenenform: Statt mit drei Gleichungen in 
der Parameterform haben wir es nur mit einer einzigen zu tun. Um eine bestimmte Ebene 
anzugeben, benötigen wir nur den Vektor n und den Punkt Pq (das Skalarprodukt Po»n ist 
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dann d). Ein Punkt P ist nur dann Punkt der Ebene, wenn die Gleichung erfüllt ist: ein ideales 
Kriterium für Schnittpunktberechnungen! Diese Gleichung ist allerdings nicht dazu geeig¬ 
net, einen Punkt P der Ebene zu berechnen, da P ja bekannt sein muß, um die Gleichung 
aufzustellen. 

Oft wünschen wir aber auch die alte Vektorform der Ebene, um eben einen Punkt P bestim¬ 
men zu können. Wie also können wir die beiden Gleichungen ineinander umformen? 

Umrechnung: s-t-Gleichung - > Normalengieichung: 

Nun, dazu ermitteln wir erst einmal den Normalenvektor n. Er berechnet sich aus dem 
Vektorprodukt axb, da er senkrecht auf diesen beiden Vektoren der ersten Ebenen¬ 
gleichung steht: 

^ / ay*b^ - a,*by \ 

n = äxb =1 aj»bx - ax*bz | 

\ ax*by - ay*bx/ 

Damit hätten wir n. Po bleibt selbstverständlich gleich Pq. s und t werden nicht benötigt, 
da wir ja die Normale und den Punkt P kennen. 

Umrechnung: Normalengleichung - > s-t-Gleichung: 

Die umgekehrte Umrechnung ist erheblich komplizierter, weil wir s und t aus der Normalen 
n und dem Punkt P bestimmen müssen. Sind uns die beiden Vektoren a und b nicht 
bekannt, dann müssen sie zunächst noch berechnet werden (es gibt ja unendlich viele Kom¬ 
binationsmöglichkeiten für ä und b). Sind sie uns allerdings bekannt, dann sollten wir sie 
auch übernehmen (die Richtung und die Länge dieser Vektoren können ja für eine bestimmte 
Aufgabe wichtige Informationen enthalten). 

Ermitteln wir also zunächst ein Paar a und b für den Fall, daß sie uns nicht bekannt sind. 
Wir wissen, daß beide Vektoren auf n senkrecht stehen. Für die Skalarprodukte gilt also: 

ä»n = 0 und 
b*n = 0 

und damit: 

ax*nx -f ay*ny -f az*nz = 0 und 

bx*nx + by»ny + bz*nz = 0 

Da es für die Vektorparameter ax, ay etc. unendlich viele Lösungen gibt (außer a = b oder 
ä = Nullvektor oder b = Nullvektor), wählen wir eine spezielle aus, die uns am wenigsten 
Arbeit macht: 

Zunächst ein Sonderfall: 

Sind genau zwei Parameter von n gleich Null, dann setzen wir jeweils einen der ent¬ 
sprechenden Parameter von a gleich 1, den anderen gleich Null. Für b wählen wir die 
Parameter genau umgekehrt. Der Parameter von n, dessen Wert ungleich Null war, sorgt 
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dafür daß die entsprechenden Parameter von ä und b gleich Null werden (Beispiel; bei 
nx = 0, ny = 5, nz = 0 setzen wir: ax=l, ay = 0, az = 0 und bx = 0, by = 0, bz = l: da 
nx = nz = 0, wird ax = bz = l und az = bx = 0, da ny< >0 ist, werden ay = by = 0). 

Nachdem der obige Sonderfall überprüft wurde, wählen wir zwei Parameter von n aus, die 
nicht gleich Null sind. Nennen wir sie ni, 112 . Der ausgelassene dritte Parameter, dessen 
Wert beliebig sein kann, heißt no- Die entsprechenden Parameter von ä und b lauten dann: 
ai, a 2 und ao bzw. bj, b 2 und bo- Dann wählen wir; 

ao = bo = 0 
= bl = 1 
ai = -n2/ni 
b2 = —ni/n2 

Damit ist ein Paar ä und b bestimmt. 

Die Berechnung von s und t ist ein wenig aufwendiger. Auch hier ist eine Fallunterscheidung 
durchzuführen. Ausgangspunkt ist die Normalen-Form der Ebene: 

(P-Po)*n = 0 

Der Einfachheit halber setzen wir ab jetzt: 

V = P-Po 
Erhalten also: 

V » n = 0 

Die s-t-Form der Ebene formen wir so um: 

P = Po + s*ä + t*b <=> 
s*ä = (P-Po) j t*b <=> 

s»ä = V - t»b 

Und in Koordinatenschreibweise: 

s»ax = Vx - t*bx 

S»ay = Vy - t»by 

s*az = Vz - t»bz 

Vx, Vy und Vz sind uns genauso bekannt wie ax, ay, az, bx, by und bz. Gesucht sind damit nur 
die beiden Variablen s und t. Dafür brauchen wir nur zwei Gleichungen, die wir uns aus 
den dreien aussuchen können (die Suffixe i und j stehen im folgenden für x, y oder für z); 

S‘ai = Vi - t*hi 
s»aj = Vj - t*bj 

Da die Vektoren a und b keine Nullvektoren sein dürfen (damit ist jeweils mindestens ein 
Parameter von a und b ungleich Null), wählen wir uns als erste Gleichung diejenige aus, 
für die sowohl ai als auch der Ausdruck bj*ai - bi*aj (s.u.) ungleich Null sind. Das 
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vereinfacht die ganze Sache erheblich. Sollte das nicht möglich sein, dann liegt irgendwo 
ein Fehler vor: Die Vektoren a und b sind nicht linear unabhängig. Wir rechnen: 

s*ai = Vi - t»bi <=> 

s = (Vi-t*b,)/a, 

Das setzen Sie bitte in die zweite Gleichung ein: 

(Vi - t»bi)/ai * aj = Vj - t*bj <=> 

Vi*aj - fbi*aj = Vj*ai - t*bj*ai <=> 

t*(bj*ai - bi*aj) = Vj»ai - Vi»aj <=> 

t = V|*ai - Vi»ai 
bj»ai - bi»aj 

Den letzten Schritt konnten wir nur deshalb ausführen, da wir bereits oben geprüft haben, 
ob bj*ai-bi*aj auch wirklich ungleich Null ist. t ist errechnet und braucht nur noch in die 
Gleichung für s eingesetzt zu werden. Die Ebenengleichung steht! 


4A Projektionen - aus 3 mach 2 

Wenn wir dreidimensionale Objekte auf unserem Bildschirm darstellen wollen, stehen wir vor 
dem Problem, auf welche Weise es wohl zu realisieren wäre, dort ein zweidimensionales Abbild 
zu erzeugen, der 3-D-Bildschirm ist schließlich noch nicht erfunden (wenn Techniken wie die 
Holographie hierzu auch das theoretische Fundament liefern könnten). Also müssen wir uns 
ein Verfahren ausdenken, das aus den dreidimensionalen Koordinaten eines einzigen Punktes 
zweidimensionale Koordinaten für den Bildschirm herstellt. Wir haben es mit dem Problem 
der Projektion zu tun. Sie können sich unter Projektion hier genau dasselbe vorstellen wie die 
Projektion der dreidimensionalen Welt auf den notwendigerweise zweidimensionalen Film 
eines Fotoapparates. In unserem Fall spielt nur der Bildschirm die Rolle des Filmes. Was dort 
sozusagen automatisch vonstatten geht, das müssen wir im Computer erst Punkt für Punkt 
berechnen. 

Diese Analogie mit dem Fotoapparat sollten Sie sich in den folgenden Kapiteln immer wieder 
vor Augen halten, wenn Sie Probleme mit dem Verständnis haben. Im Prinzip finden nämlich 
hier wie dort stets ähnliche Prozesse statt. 

Was die mathematischen Probleme anbelangt, so kennen wir das notwendige mathematische 
Rüstzeug für die grafischen Operationen, die wir in diesem Kapitel kennenlernen werden, 
bereits aus dem letzten Kapitel. Als einziges müssen wir diese Prinzipien auf dreidimensionale 
Verhältnisse übertragen. Alle Matrizen, Punkt- wie Transformationsmatrizen, werden wir also 
nur erweitern. 

Einen Punkt in einem zweidimensionalen Koordinatensystem können wir auch mit dreidimen¬ 
sionalen Koordinaten (bei denen ja nur die z-Koordinate hinzukommt) ausdrücken. Die 
z-Koordinate wird dann einfach gleich Null. Die Ebene des zweidimensionalen Koordinaten- 
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Systems liegt also genau in der x-y-Ebene des 3-D-Systems, die durch den Nullpunkt geht. Wir 
formen also 2-D-Koordinaten wie folgt in 3-D-Koordinaten um: 

P(x,y) = P(x,y,0) 

Es soll sich dabei vereinbarungsgemäß um ein und denselben Punkt handeln. Entsprechend for¬ 
men wir die zugehörige Punktmatrix P um: 

P = (X y) = (X y 0) 

Und in homogenen Koordinaten (s. 3.2.5, unter »Translation«): 

P = (x*w y»w w) = (x»w y*w 0*w w) 

Auch hier also ist die z-Koordinate gleich Null. Allgemein schreiben wir für einen 3-D-Punkt 
also: 

P(x,y,z) - Koordinatenschreibweise 

P = (x y z) - Matrixschreibweise 

P = (x*w y*w z*w w)- Matrixschreibweise für homogene Koordinaten 

Entsprechend müssen wir die Transformationsmatrizen erweitern. Die allgemeinen Formen für 
dreidimensionale Verhältnisse werden wir etwas weiter unten angehen. Hier seien nur die 
Matrizen für zweidimensionale Transformationen auf 3-D erweitert. Alle Matrizen werden um 
je eine Spalte und eine Reihe vergrößert. Aus der Skalierungsmatrix: 

' ( o" y 

wie wir sie in den 2-D-Kapiteln kennengelernt haben, wird: 


S(S„Sy) = 1 

f S, 0 0 \ 

0 Sy 0 

10 0 1/ 

und in homogenen Koordinaten: 

S(S„Sy) = 

/ Sx 0 0 0 \ 

0 Sy 0 0 

0 0 10 
,0 0 0 1; 


Entsprechend können wir alle anderen Transformationsmatrizen erweitern. Hier die erweiterte 
Translationsmatrix (rechnen Sie doch einmal nach): 

T(T„Ty) = 

'1 0 0 0' 
0 10 0 

0 0 10 
l Tx Ty 0 1 j 



Beachten Sie bitte, daß es sich dabei immer noch um dieselben Transformationen handelt. Das 
heißt, es wird davon ausgegangen, daß die z-Koordinate stets gleich Null und z.B. eine Ver¬ 
größerung oder Verschiebung in z-Richtung nicht erwünscht ist. 
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Nach der Klärung dieser Dinge also wenden wir uns direkt der angekündigten Projektion drei¬ 
dimensionaler Koordinaten auf die Ebene zu. Es gibt da mehrere Möglichkeiten, die sich unter¬ 
schiedlich für die verschiedenen Zwecke eignen. Zwei von diesen Projektionsarten wollen wir 
hier besprechen: 

- Parallelprojektion 

- Zentralprojektion (auch perspektivische Projektion genannt) 

Die erste Form ist mathematisch recht einfach zu realisieren und eignet sich besonders für maß¬ 
stabsgerechte Abbildungen, die z.B. in der Architektur Verwendung finden. Die zweite erfor¬ 
dert bereits ein wenig mehr an Rechenaufwand. Es handelt sich dabei aber um die für das 
menschliche Auge realistischere Darstellung. 

44.1 Der einfache Weg: Parallelprojektion 

Auf dem Wege, dreidimensionale in zweidimensionale Koordinaten umzurechnen, könnten wir 
auf den Gedanken kommen, die störenden z-Koordinaten einfach fortzulassen, also für alle in 
Frage kommenden Punkte gleich Null zu setzen. Und in der Tat ist das bereits ein Sonderfall 
der parallelen Projektion. Sie erhielt ihren Namen aus der Tatsache, daß von allen 3-D-Punkten 
parallele Strahlen (bzw. Vektoren) bis zur xy-Ebene (z = 0) gezogen werden. Diejenigen 
Punkte, an denen diese Projektionsvektoren die Ebene treffen (schneiden), stellen die soge¬ 
nannten Projektionspunkte dar. Für sie ist die z-Koordinate gleich Null und kann damit zugun¬ 
sten eines ebenen Koordinatensystems weggelassen werden. 



Bild 4.17: Konstruktion der Parallelprojektion 
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In dem angesprochenen Sonderfall, bei dem die z-Koordinaten eines jeden Punktes einfach 
gleich Null gesetzt werden, verlaufen die Projektionsvektoren zusätzlich noch parallel zur 
z-Achse, so daß sich x- und y-Koordinaten bei der Projektion nicht ändern, egal, wie groß die 
z-Koordinate war. Wir haben es hier mit einer Form der sogenannten orthografischen Projek¬ 
tion zu tun, in die Projektionsvektoren senkrecht (= orthogonal) zur Projektionsebene stehen. 

Es gibt noch einige andere parallele Projektionen, die z.B. in technischen Zeichnungen Anwen¬ 
dung finden (z.B.: Kavalier- oder Kabinettprojektionen etc.). Bei ihnen liegt die Projektions¬ 
ebene nicht immer in der xy-Ebene. Hier können auch xz-, yz-Ebenen oder beliebige andere 
Ebenen eingesetzt werden. Entsprechend werden sich natürlich die mathematischen Ableitun¬ 
gen von der nun folgenden unterscheiden. Meist jedoch handelt es sich um unwesentliche Ände¬ 
rungen, die leicht und schnell durchzuführen sind. 

Die folgende Ableitung geht davon aus, daß die xy-Ebene die Projektionsebene darstellt. Die 
Projektionsvektoren - wir sprechen von Stund an nur noch von dem Projektionsvektor, da ja 
eigentlich nur seine Richtung eine Rolle spielt - sind dagegen beliebig, sofern sie nicht parallel 
zur Ebene verlaufen. 

Rufen wir uns die vektorielle Form der Geradengleichung ins Gedächtnis: 

P = Po + s*ä 

Angenommen, unser Projektionsvektor v (also der Richtungsvektor aller Linien vom 3-D- 
Punkt zur Projektionsebene) lautet: 

Der zu projizierende 3-D-Punkt besitzt die Koordinaten: 



Dann lautet die Gleichung der Geraden vom 3-D-Punkt bis zum Punkt auf der Projektions¬ 
ebene: 

P = Q -I- s*v 
oder in Parameterform: 


Px = Qx + S*Vx 
Py = Qy -I- S»Vy 

Pz = Qz + S*Vz 


P ist dabei der gesuchte Punkt auf der Projektionsebene, der Punkt also, bei dem die Gerade 
die Ebene schneidet. Wir müssen nun also nur noch herausbekonunen, welchen Wert s anneh¬ 
men muß. Dann könnten wir P ausrechnen. Unsere Ebene soll ja vereinbarunsgemäß die xy- 
Ebene sein. Die z-Koordinate des Projektionspunktes auf der Ebene wird also gleich Null sein. 
Wenn Pz aber gleich Null ist, dann erhalten wir aus der dritten Parametergleichung: 
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0 = Qz + s « Vz <=> 


Vz 

Das können wir wiederum in die beiden ersten Gleichungen einsetzen und erhalten nach ein 
paar Umstellungen die zentrale Formel für die parallele Projektion; 

Px = Qx - Qz*(Vx/Vz) 

Py “ Qy “ Qz*(Vy/Vz) 
mit: 


Px, Py - Koordinaten des projizierten Ebenenpunktes 

Qx, Qy, Qz - Koordinaten des zu projizierenden Raumpunktes 

Vx, Vy, Vz - Projektionsvektor 


Daraus bestimmen wir die folgende Transformationsmatrix: 


/ 1 

0 \ 

PP(Vx,Vy,Vz) = 0 


\ -Vx/Vz 

-Vy/Vz / 


oder in homogenen Koordinaten mit der Transformation eines Punktes Q(Qx,Qy,Qz): 


(Px Py 0 1) = (Qx Qy Qz 1) 


' 1 0 0 0 \ 

0 10 0 

-Vx/Vz -Vy/Vz 0 0 

\ 0 0 0 1 , 


In Computerprogrammen wird die parallele Projektion oft in Verbindung mit der Rotation um 
die X-Achse angewandt. Dabei gibt man dem Projektionsvektor ein möglichst einfaches Aus¬ 
sehen. Etwa eine Parallele zur z-Achse mit der Länge 1, wie wir es hier unternehmen: 



Die Transformationsmatrix PP(0,0,-1) vereinfacht sich dadurch natürlich rapide (rechnen Sie 
einmal nach). Die Folge: Es tritt wieder der sehr triviale Fall ein, bei dem x- und y-Koordinaten 
übernommen werden, die z-Koordinate einfach verschwindet (s.o.). Vor der Projektion wird 
dann allerdings das gesamte Bild um die y- und um die x-Achsen (möglich wäre natürlich noch 
eine Drehung um die z-Achse) rotiert. Damit hat die ursprüngliche z-Koordinate doch wieder 
Einfluß auf die resultierenden Projektionskoordinaten. Die Drehwinkel und die entsprechen¬ 
den Winkelfunktionen werden zu Anfang der Projektion einmal berechnet und fortan stets als 
Konstanten in die Rechnung übernommen. Der Vorteil dieser Methode: Die Drehwinkel stellen 
praktisch den Sichtwinkel dar, mit dem der Betrachter auf das Bild schaut. Winkel sind in Pro¬ 
grammen sehr viel leichter zu handhaben als solch unanschauliche Dinge wie ein Projektions¬ 
vektor. Da wir erst später auf Drehungen im Raum zu sprechen kommen, sei hier die resultie¬ 
rende Transformationsmatrix ohne Ableitung angegeben: 




Der Einstieg in die 3-D-Welt mit Ihrem Amiga 115 


P = Q * Rj,(b)*Rx(a)*PP(OA-l) = 

(Px Py 0 1) = 

0 \ 

0 I 
0 I 

1 / 

und in Parameterform: 


(Qx Qy Qz 1) 


I cos(b) sin(a) * sin(b) 0 

0 cos(a) 0 

sin(b) -sin(a)*cos(b) 0 

^ 0 0 0 


Px = Qx*cos(b) + Q 3 *sin(b) 

Py = Qx*sin(a)*sin(b) + Qy*cos(a) - Qz*sin(a)*cos(b) 
dabei bedeuten: 


P (Px,Py) 

Q (Qx,Qy,Qz) 

Ry(b) 

Rx(a) 

PP(0,0-1) 

a 

b 


Resultierender Punkt in der Ebene 
Ausgangspunkt im Raum 

Rotationsmatrix: Rotation um y-Achse mit dem Winkel b 
Rotationsmatrix: Rotation um x-Achse mit dem Winkel a 
Transformationsmatrix: Parallelprojektion mit Projektionsvektor 
v = (00 -1) 

Drehwinkel um x-Achse 
Drehwinkel um y-Achse 


Man kann die Drehungen des Objektes auch als Drehung der Projektionsebene ansehen, die 
dann natürlich in die entgegengesetzte Richtung erfolgt. 


Die oben angegebene Parameterform ist genau die Formel, die wir im folgenden Programm 
verwenden werden, um ein dreidimensionales Objekt auf den Bildschirm zu projizieren. Bitte 
schauen Sie sich das Programm ruhig einmal genauer an. Hier werden Sie das erste Mal sehen, 
auf welche Weise die viele graue Theorie, die wir uns bis jetzt angeeignet haben, in die Praxis 
umgesetzt werden kann: 


'XX Parallelprojektion xx 
'XX XX 

'xxxxxxxxxxxxxxxxxxxxxxxxxx 

PI = 3.141593 

'Translation der Ebenenkoordinaten: 
'(Position des Koordinaten-Nullpunktes) 
maus5? = MOUSE(O) 

vl = M0USE(3) 'Mauskoordinaten 

v2 = M0USE(4) 'holen 
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'Start-Rotatlonswlnkel der Projektionsebene (Grad): 
ag = 10 'Drehung um x-Achse 

bg = -10 'Drehung um y-Achse 

a = PI * ag/180 'Umrechnung nach RAD 
b = PI » bg/180 

'Drehinkrementwert (Grad): 
dig = 5 


di = PI * dig/180 'Umrechnung nach RAD 


'Einen neuen Bildschirm mit Fenster öffnen: 

SCREEN 2,320,200,2,1 

WINDOW 2,"3-D-Parallelproj ektIon ",(0,10)-(297,186),1+2+8,2 


PALETTE 0,0,0,0 
PALETTE 2,1,.6,.67 
PALETTE 3,1,1,.13 
PALETTE 1,.4,.6,1 
COLOR ,0 


'Hintergrund: schwarz 
'Farbe 1: kirschrot 
'Farbe 2: gelb 
'Farbe 3: dunkelblau 
'Hintergrundfarbe = 0 


'Objekt-Daten in Arrays einiesen: 

'xr^O, yrjS(), zr^() - Koordinaten der Raumpunkte 
'Is^O, le^O - Linienverbindungen 

get.Objects 

'Hauptschleife: 

flag$=0 

WHILE flag^Ol 

Projektion 'Alle Punkte projizieren 

CLS 'Fenster löschen 


'Koordinatenachsen einzeichnen: 

PATTERN &HAAAA 'Linienmuster = gestrichelt 

COLOR 2 

FOR 1=0 TO 2 

LINE (xe?(ls^(l)),ye^(ls^(i)))-(xe?(le?(i)),ye?(le^(i))) 
NEXT 1 

PATTERN &HFFFF 'Linienmuster = durchgezogen 
COLOR 3 

'Linien ausgeben (Objekt zeichnen): 

FOR i=3 TO al?-l 

LINE (xe?(ls%(i)),ye^(ls^(i)))-(xe%(le^(i)),ye^(le?(l))) 
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NEXT i 

maus^ = 0 : flag^=0 

WHILE mauS/S<>l AND flag^=0 

SLEEP 'Auf Ereignis warten 

'Mauskoordinaten als neue Nullpunkt- 
'Koordinaten übernehmen: 
maus^=M0USE(0) 

IF maus^=l THEN 
vl=M0USE(3) 
v2=M0USE(4) 

END IF 

c% = ASC(INKEY$+CHR$(0)) 

IF c%=31 THEN 'Cursor links => 

b=b+di 'y-Achsendrehwinkel erhöhen 

tlag% = -1 'Flag für Neuzeichnen 
END IF 

IF q%=30 THEN 'Cursor rechts => 
b=b-dl 'y-Achsendrehwinkel erniedrigen 

flag^ = -1 'Flag für Neuzeichnen 
END IF 

IF c^=28 THEN 'Cursor hoch => 

a=a+di 'x-Achsendrehwlnkel erhöhen 

flag/5 = -1 'Flag für Neuzeichnen 
END IF 

IF c^=29 THEN 'Cursor runter => 
a=a-di 'x-Achsendrehwinkel erniedrigen 

flag% = -1 'Flag für Neuzeichnen 
END IF 

'Falls Fenster geschlossen -> Ende 
IF WINDOW(7)=0 THEN 
flag^=l 
END IF 

WEND 

WEND 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 


END 
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'Objektdaten einiesen: 

SUB get.Objects STATIC 

SHARED ap^ 

READ ap^ 

DIM SHARED xr^(ap%),yr^(ap^),zr^(ap^) 
DIM SHARED xe^(ap%),ye?(ap^) 

FOR 1=0 TO a.-p%-l 

READ xr^(i),yr^(i),zr^(l) 

NEXT i 

'Liniendefinitionen einiesen: 

SHARED al^ 

READ al^ 

DIM SHARED ls^(al?),le^(al^) 

FOR i=0 TO al^-1 
READ Is^(l),le%(l) 

NEXT i 

END SUB 


'Projektion aller Raum-Koordinaten ln die Ebene: 

SUB Projektion STATIC 
SHARED a.p% 

SHARED a,b,vl,v2 

'Konstanten für die Projektion berechnen: 

si.a=SIN(a) 

co.a=C0S(a) 

sl.b=SIN(b) 

co.b=C0S(b) 

FOR i=0 TO ap^-1 

Qx = xr%(i) 

Qy = yr?(l) 

Qz = -ZT%{i) 'ins Linkssystem umwandeln 
xe/5(i) = vl + Qxitco.b + Qzxsi.b 

ye^(i) = v2 - (Qxitsl.a*sl.b + Qy»co.a - Qz^si.aitco.b) 
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NEXT i 
END SUB 


'Objektdaten: 

'3-D-Punktkoordinaten: 

'Anzahl der Punkte: 

DATA 36 

'Koordinatenachsen: 

DATA -10, 0, 0, 80, 0, 0 

DATA 0,-10, 0, 0,90, 0 

DATA 0, 0,-10, 0, 0, 180 


'Obj ektpunkte: 


DATA 

5,10, 5, 

5,45, 5, 

15,65, 5 

DATA 25,45, 5, 

25,10, 5, 

5,10,55 

DATA 

5,45,55, 

15,65,55, 

25,45,55 

DATA 

25,10,55, 

13,10, 5, 

13,20, 5 

DATA 

17,20, 5, 

17,10, 5, 

7,33, 5 

DATA 

7,38, 5, 

12,38, 5, 

12,33, 5 

DATA 

18,33, 5, 

18,38, 5, 

23,38, 5 

DATA 23,33, 5, 

25,33,12, 

25,38,12 

DATA 

25,38,23, 

25,33,23, 

25,33,32 

DATA 

25,38,32, 

25,38,43, 

25,33,43 


'LinienverbIndungen: 

'Anzahl der Linien: 

DATA 40 

'Koordinatenachsen: 

DATA 0, 1, 2, 3, 4, 5 


'Objektllnlen: 


DATA 6, 7, 

00 

CO 

9,10 

DATA 10, 6, 

7, 9, 

11,12, 

12,13 

DATA 13,14, 

14,15, 

15,11, 

12,14 

DATA 6,11, 

7,12, 

8,13, 

9,14 

DATA 10,15, 

16,17, 

17,18, 

18,19 
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DATA 

19,16, 

20,21, 

21,22, 

22,23 

DATA 

23,20, 

24,25, 

25,26, 

26,27 

DATA 

27,24, 

28,29, 

29,30, 

30,31 

DATA 

DATA 

31,28, 

35,32 

32,33, 

33,34, 

34,35 


O 3-D-Parallelprojektion 
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Bild 4.18: Parallelprojektion 


Da steht es nun, unser erstes 3-D-Programm. Starten Sie es erst einmal und bewundern Sie 
unser Erzeugnis, das mit bisher einfachsten Mitteln auf den Bildschirm gezaubert wurde. Sie 
sehen ein Haus und ein Koordinatenkreuz. Sie befinden sich in einem neuen Screen niedrigster 
Auflösung - in einem Fenster. Sie fahren mit der Maus auf einen beliebigen Punkt des Fensters 
und betätigen den Mausknopf. Sie staunen? Das Haus samt Koordinatenkreuz wird gelöscht 
und an der von Ihnen angewählten Stelle neu gezeichnet. Sie betätigen eine Cursortaste. Sie 
staunen noch mehr? Das Objekt dreht sich! Sie möchten wissen, wie das funktioniert? Das wis¬ 
sen Sie bereits! 

Wir haben lediglich einmal aus unserem bisherigen Wissen geschöpft und das ist das Ergebnis. 
Nun, es folgt eine Aufstellung der Manipulationsmöglichkeiten bei diesem Programm: 

linke Maustaste - Positionierung des 3-D-Koordinatensystems 
Cursor li/re - Drehung der Projektionsebene um die y-Achse 

Cursor ob/un - Drehung der Projektionsebene um die x-Achse 

Sie können sich das dargestellte Haus also von allen Seiten anschauen, indem Sie die Projek¬ 
tionsebene nach und nach mit Hilfe der Cursortasten drehen. Sollte sich das Objekt nach dem 
Starten des Programmes außerhalb des Fensters befinden, dann positionieren Sie es einfach 
mittels Maustaste. 
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Schauen wir doch einmal, wie das Programm dazu kommt, solche Dinge auf den Bildschirm 
zu zaubern. Zunächst werden - wie immer - einige grundsätzliche Variablen vorbelegt. Es 
handelt sich dabei um die Koordinaten des 3-D-Systems (vl und v2), die Startwerte für die 
Drehung um die beiden Rotationsachsen (a und b), sowie den Wert di, den die Drehwinkel hoch- 
oder herunterzählen werden, sobald Sie eine Cursortaste betätigen. Hier sind natürlich alle 
Möglichkeiten der Änderung offen. Beachten Sie, daß alle Werte letztendlich in Radiant vorlie¬ 
gen müssen. Die Grad-Angaben rechnet dieses Programm deshalb auch sofort um. 

Dann geht es auch schon zur Sache: Ein neuer Bildschirm wird geöffnet (Auflösung: 320x200, 
2 Farbebenen = 4 Farben) und in ihm ein Fenster mit Schließ-Gadget, Sizer-Gadget und Move- 
Balken. Anschließend ordnen wir den 4 verfügbaren Farbregistern die entsprechenden Farb¬ 
mischungen zu. 

Nach diesen Formalitäten müssen die Daten für das zu zeichnende Objekt eingelesen werden. 
Die gestellte Aufgabe übernimmt die Routine »get.objects«. Hier definieren wir eine Reihe von 
Arrays, die objektspezifische Daten enthalten: 

xr%( ),yr%( ),zr%() - Raumkoordinaten aller Objektpunkte 
xe%(),ye%() - Projizierte Ebenenkoordinaten aller Objektpunkte 

ls%( ),le%() - Nummern der Start-und Endpunkte aller Objektlinien 

Gefüllt werden dann aber nur die Raumpunkt- und die Linien-Arrays. In die Raumpunkt-Arrays 
werden aus den am Programmende zu findenden DATA-Zeilen alle Eckpunkte des Objektes 
übernommen. Erinnern Sie sich vielleicht noch an die Ausführungen über die Datenstrukturen 
in einem CAD-Programm? Hier finden wir einen Teil realisiert. Unsere Welt besteht praktisch 
nur aus einem Objekt, dieses Objekt seinerseits aus vielen Linien (die Flächen haben wir hier 
ausgelassen). Die Linien wiederum werden durch ihre Endpunkte definiert. 36 Punkte reichen 
uns, um Koordinatensystem sowie Haus Eckpunkt für Eckpunkt darzustellen. 40 Verbindungen 
dieser Punkte speichern wir im zweiten DATA-Zeilensatz. Angegeben werden dabei pro Linie 
zwei Werte: die Nummer des Start- und die des Endpunktes. Wie wir ein solches Gebilde auf 
dem Papier entwerfen und die vielen verschiedenen Punkte systematisch ablesen und verbin¬ 
den, das soll ein paar Absätze später gezeigt werden. Wollen wir mehrere Objekte einzeichnen, 
so können wir die bisher eindimensionalen Punkte- und Linien-Arrays noch um eine zusätzliche 
Dimension erweitern. Sie gibt dann an, zu welchem Objekt der jeweilige Punkt (die Linie) 
gehört. 

Wir sollten uns aber weiter mit dem Programm beschäftigen. Punkte und Linien befinden sich 
nun also in den entsprechenden Arrays und die Routine »get.objects« kehrt zurück ins Hauptpro¬ 
gramm. Hier startet sofort eine große WHILE... WEND-Schleife, in der der gesamte Zeichen- 
und Eingabeprozeß stattfindet. Doch noch gibt es nichts zu zeichnen. Die Punkte unseres 
Objektes liegen uns bisher nur in dreidimensionaler Form vor. Was fehlt, ist die Projektion auf 
die Ebene. 

Was nicht ist, das wird - in der Routine »projektion«. Hier sollte Ihnen bereits einiges bekannt 
Vorkommen, wenn Sie noch einmal an den Anfang dieses Kapitels zurückdenken. Was hier 
getan wird, ist einfach die Anwendung der Formel für die Parallelprojektion mit den Drehungen 
der Projektionsebene um die x- und die y-Achsen. Sogar die Variablenbezeichnungen stimmen 
überein. Hier wird also Punkt für Punkt (die Anzahl der Punkte steht in der Variablen ap%) 
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auf die Ebene projiziert und in den Arrays xe%() und ye%() niedergelegt. Die Translations¬ 
variablen vl und v2 sind für eine einfache Verschiebung in der Ebene zuständig, wie wir sie 
bereits kennengelemt haben. Die Rückkehr ins Hauptprogramm folgt auf dem Fuße. 

Da wir nun die ebenen Koordinaten jedes einzelnen Punktes kennen und frei in zwei Arrays 
verfügbar haben, können wir darangehen, das Ganze zu Bildschirm zu bringen. Da wird also 
zunächst das Koordinatenkreuz gezeichnet. Dafür werden die Farbe und die Linienform geän¬ 
dert. In einer Schleife geben wir dann jede der drei Achsen aus. Für das eigentliche Objekt 
ändern wir wiederum die Farbe und normalisieren die Linienform. 

Die Linien des Objektes geben wir mit einem normalen LINE-Befehl aus: 

LINE (xe^(ls^(i)),ye^(ls?(i)))-(xe^(le%(l)),ye^(le^(i))) 

Die Start- und Endkoordinaten der Linien ermitteln sich wie folgt: Die Laufvariable i gibt an, 
um welche Linie es sich handelt. Sie dient als Index für die Arrays Is % () und le % (). Die daraus 
ermittelten Werte sind bekanntlich die Nummern der jeweiligen Endpunkte und werden ihrer¬ 
seits als Index für die Arrays xe % () und ye % () verwendet, die die gewünschten Ebenenkoordi¬ 
naten enthalten. 

Der Rest des Programmes ist eigentlich recht einfach zu verstehen. In einer inneren 
WHILE... WEND-Schleife wartet das Progranun auf ein Ereignis (SLEEP) und ermöglicht in 
dieser Zeit Multitasking. Ist das Ereignis erfolgt, muß festgestellt werden, um welche Art von 
Ereignis es sich handelt. Leider bietet Amiga-Basic hierzu keine kompakte und komfortable 
Funktion, wie wir sie unter C kennengelernt haben. Wir müssen also alle Möglichkeiten, die 
uns interessieren, abklappern und entsprechend reagieren. Das Programm selbst dokumentiert 
Ihnen das ausreichend. Eine kleine Anmerkung vielleicht noch: Wenn Sie das Schließ-Gadget 
anwählen, dann schließt Amiga-Basic das Fenster automatisch, ohne dem Basic-Programm 
dies mitzuteilen oder »Rückfrage« zu halten. Aus diesem Grunde mußten wir einen kleinen 
Trick anwenden. Sobald nämlich das letzte Fenster des Bildschirms geschlossen ist, wird der 
Inhalt von WINDOW(7) gleich Null (Zeiger auf die dann ja nicht mehr vorhandene Window- 
Struktur des aktuellen Fensters). Wir reagieren entsprechend darauf. 

Jetzt ist es an der Zeit, durchzusprechen, auf welche Weise Sie ein eigenes Objekt per Hand 
zeichnen und die Punktkoordinaten etc. ermitteln können. Schließlich eignet sich das vorlie¬ 
gende Programm hervorragend dazu, praktisch beliebige und beliebig komplizierte Objekte zu 
zeichnen, ohne etwas am Programm selbst zu ändern, indem wir andere DATA-Zeilen kreieren. 

Nehmen wir das Beispiel unseres kleinen Hauses. Das Problem ist nun, daß wir nur sehr schwer 
dreidimensionale Koordinaten von einem auf die Ebene projizierten Gegenstand ermitteln kön¬ 
nen. Aus diesem Grunde müssen wir das Problem reduzieren, indem wir einfach mehrere 
Ansichten des gewünschten Objektes erstellen. Die Anzahl dieser Ansichten ist abhängig von 
der Komplexität des jeweiligen Objektes und von Ihrer räumlichen Vorstellungsfähigkeit. Bei 
unserem einfachen Haus käme man mit zwei Ansichten (eine von vorne, eine von der Fenster¬ 
seite) aus. Das Optimale wären allerdings vier Ansichten, von jeder Seite eine (s. Bild 4.19). 
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Bild 4.19: Vier Ansichten des Hauses 


Jede Ansicht wird frontal genommen (also keine Betrachmng unter einem bestimmten Winkel, 
d.h. Projektionsebene und Projektionsvektor parallel zu den Achsen). Gleichzeitig haben wir 
ein Koordinatensystem einzuzeichnen (x-y, x-z oder y-z). Bei mehreren Ansichten müssen wir 
darauf achten, daß die Einheiten aller gleichnamigen Achsen und die Position zum Objekt über¬ 
einstimmen. 





124 Der Einstieg in die 3-D-Welt mit Ihrem Amiga 


Der nächste Schritt ist die Numerierung aller Linien-Endpunkte, beginnend bei null (in unse¬ 
rem Programm wird das Koordinatensystem mit eingezeichnet. Also hier: beginnend bei 
sechs). Anschließend numerieren wir genauso die vielen verschiedenen Linien (am besten mit 
einer anderen Farbe). (In unserem Beispiel beginnen wir bei drei, da die drei Koordi¬ 
natenachsen berücksichtigt werden müssen.) Später kommen noch die Flächen hinzu. Achten 
Sie darauf, daß Sie zwei identische Punkte in verschiedenen Ansichten auch identisch numerie¬ 
ren. Ansonsten hätten Sie viel zu viele überflüssige Eckpunkte! 

Sind Sie soweit, dann stellen Sie zwei Tabellen auf. Die erste enthält alle Punkte mit ihren drei¬ 
dimensionalen Koordinaten. Die zweite listet alle Linien auf. In ihr stehen die Nummern der¬ 
jenigen Punkte, die jeweils eine Linie bilden. Jeder Punkt kann so oft auftauchen, wie Sie wün¬ 
schen. 

Die entsprechenden Tabellen zu dem Haus könnten dann wie folgt aussehen: 


Punkttabelle: 


Nr 

X 

y 

z 

Nr 

X 

y 

z 

Nr 

X 

y 

z 

6 

5 

10 

5 

16 

13 

10 

5 

26 

23 

38 

5 

7 

5 

45 

5 

17 

13 

20 

5 

27 

23 

33 

5 

8 

15 

65 

5 

18 

17 

20 

5 

28 

25 

33 

12 

9 

25 

45 

5 

19 

17 

10 

5 

29 

25 

38 

12 

■El 

25 

10 

5 

20 


33 

5 

30 

25 

38 

23 

Wm 

5 

10 

55 

21 


38 

5 

31 

25 

33 

23 

mm 

5 

45 

55 

22 


38 

5 

32 

25 

33 

32 

■9 

15 

65 

55 

23 


33 

5 

33 

25 

38 

32 


25 

45 

55 

24 


33 

5 

34 

25 

38 

43 


25 

10 

55 

25 


38 

5 

35 

25 

33 

43 


Linientabelle: 




P2 

Nr 

PI 


Nr 

PI 

P2 




3 

6 

7 

13 

15 

11 

23 

19 

16 

33 

29 

30 

4 

7 

8 

14 

12 

14 

24 

20 

21 

34 

30 

31 

5 

8 

9 

15 

6 

11 

25 

21 

22 

35 

31 

28 

6 

9 

10 

16 

7 

12 

26 

22 

23 

36 

32 

33 

7 

10 

6 

17 

8 

13 

27 

23 

20 

37 

33 

34 

8 

7 

9 

18 

9 

14 

28 

24 

25 

38 

34 

35 

9 

11 

12 

19 

10 

15 

29 

25 

26 

39 

35 

32 

10 

12 

13 

20 

16 

17 

30 

26 

27 




11 

13 

14 

21 

17 

18 

31 

27 

24 




12 

14 

15 

22 

18 

19 

32 

28 

29 
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Vergleichen Sie das bitte mit den DATA-Zeilen im besprochenen Programm. Wenn Sie solche 
Objekte des öfteren entworfen haben, dann werden Sie sicherlich nach einem geeigneten 3-D- 
Editor schauen, mit dem das Ganze viel einfacher zu handhaben wäre. Doch lassen Sie uns erst 
eimnal weitersehen, damit sich ein solches Unterfangen auch lohnt. 

Ein kleiner Zusatz zum Ausprobieren: Versuchen Sie doch einmal, die folgenden DATA-Zeilen 
in das obige Programm einzusetzen (vergessen Sie die Daten für das Koordinatenkreuz nicht): 


' Punkte: 

t 

' Anzahl Punkte: 
DATA 170 


' Koordinaten: 


DATA 

1, 

7, 

12, 

1, 

5, 

12, 

1, 

5, 

10, 

1, 

7, 

10, 

1, 

7, 

4 

DATA 

1, 

5, 

4, 

1, 

5, 

2, 

1, 

7, 

2, 

1, 

6, 

9, 

1, 

2, 

9 

DATA 

1, 

2, 

5, 

1, 

6, 

5, 

1, 

6, 

6, 

1, 

6, 

7, 

1, 

6, 

8 

DATA 

f 

1, 

2, 

6, 

1, 

2, 

7, 

1, 

2, 

8, 

1, 

4, 

14, 

1, 

3, 

14 

DATA 

1 , 

3, 

13, 

1, 

4, 

13, 

1, 

4, 

1, 

1, 

3, 

1, 

1, 

3, 

0 

DATA 

1 , 

4, 

0, 

1, 

8, 

14, 

1, 

2, 

14, 

1, 

2, 

0, 

1, 

8, 

0 

DATA 

14, 

12, 

3, 

14, 

12, 

11, 

2, 

8, 

7, 

2, 

9, 

6, 

2, 

10, 

7 

DATA 

2, 

9, 

8, 

8, 

9, 

1, 

8, 

9, 

13, 

8, 

9, 

11, 

10, 

10, 

8 

DATA 

8, 

9, 

6, 

10, 

10, 

3, 

6, 

8, 

13, 

8, 

13, 

13, 

4, 

2, 

14 

DATA 

4, 

2, 

0, 

4, 

5, 

14, 

4, 

5, 

0, 

10, 

5, 

14, 

10, 

5, 

0 

DATA 

10, 

2, 

14, 

10, 

2, 

0, 

22, 

2, 

14, 

22, 

2, 

0, 

22, 

5, 

14 

DATA 

r 

22, 

5, 

0, 

28, 

5, 

14, 

28, 

5, 

0, 

28, 

2, 

14, 

28, 

2, 

0 

DATA 

31, 

2, 

14, 

31, 

2, 

0, 

31, 

2, 

3, 

32, 

2, 

3, 

31, 

6, 

14 

DATA 

31, 

6, 

0, 

27, 

12, 

11, 

27, 

12, 

3, 

5, 

3, 

13, 

5, 

3, 

10 

DATA 

5, 

3, 

4, 

5, 

3, 

1, 

5, 

1, 

13, 

5, 

1, 

10, 

5, 

1, 

4 

DATA 

r 

5, 

1, 

1, 

6, 

0, 

13, 

6, 

0, 

10, 

6, 

0, 

4, 

6, 

0, 

1 

DATA 

10, 

8, 

14, 

10, 

8, 

0, 

19, 

12, 

11, 

19, 

12, 

3, 

8, 

0, 

13 

DATA 

8, 

0, 

10, 

8, 

0, 

4, 

8, 

0, 

1, 

9, 

1, 

13, 

9, 

1, 

10 

DATA 

9, 

1, 

4, 

9, 

1, 

1, 

9, 

3, 

13, 

9, 

3, 

10, 

9, 

3, 

4 

DATA 

f 

9, 

3, 

1, 

8, 

4, 

13, 

8, 

4, 

10, 

8, 

4, 

4, 

8, 

4, 

1 

DATA 

6, 

4, 

13, 

6, 

4, 

10, 

6, 

4, 

4, 

6, 

4, 

1, 

23, 

3, 

13 

DATA 

23, 

3, 

10, 

23, 

3, 

4, 

23, 

3, 

1, 

23, 

1, 

13, 

23, 

1, 

10 

DATA 

23, 

1, 

4, 

23, 

1, 

1, 

24, 

0, 

13, 

24, 

0, 

10, 

24, 

0, 

4 

DATA 

24, 

0, 

1, 

19, 

2, 

14, 

19, 

2, 

0, 

19, 

7, 

14, 

19, 

7, 

0 
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DATA 

26, 

0, 

13, 

26, 

0, 

10, 

26, 

0, 

4, 

26, 

0, 

1, 

27, 

1, 

13 

DATA 

27, 

1, 

10, 

27, 

1, 

4, 

27, 

1, 

1, 

27, 

3, 

13, 

27, 

3, 

10 

DATA 

27, 

3, 

4, 

27, 

3, 

1, 

26, 

4, 

13, 

26, 

4, 

10, 

26, 

4, 

4 

DATA 

1 

26, 


1, 

24, 

4, 

13, 

24, 

4, 

10, 

24, 

4, 

4, 

24, 

4, 

1 

DATA 

7, 

2, 

13, 

7, 

2, 

1, 

25, 

2, 

13, 

25, 

2, 

1, 

18, 

7, 

14 

DATA 

18, 

7, 

0, 

18, 

6, 

14, 

18, 

6, 

0, 

15, 

12, 

11, 

15, 

12, 

3 

DATA 

18, 

12, 

11, 

18, 

12, 

3, 

18, 

8, 

14, 

18, 

8, 

0, 

20, 

12, 

11 

DATA 

r 

20, 

12, 

3, 

20, 

8, 

14, 

20, 

8, 

0, 

28, 

8, 

14, 

28, 

8, 

0 

DATA 

26, 

12, 

11, 

26, 

12, 

3, 

19, 

8, 

14, 

19, 

8, 

0, 

28, 

10, 

11 

DATA 

30, 

7, 

12, 

30, 

7, 

2, 

28, 

10, 

4, 

6, 

8, 

14, 

6, 

8, 

0 


I 


I 


' Linien: 

' ******* 

r 

' Anzahl Linien: 

DATA 192 

f 

' Verbindungen: 
DATA 0, 1, 

1, 

2, 

2, 

3, 

3, 

0, 

4, 5 

DATA 

5, 

6, 

6, 

7, 

7, 

4, 

8, 

9, 

9, 10 

DATA 

10, 

11, 

11, 

8, 

12, 

15, 

13, 

16, 

14, 17 

DATA 

1 

18, 

19, 

19, 

20, 

20, 

21, 

21, 

18, 

22, 23 

DATA 

23, 

24, 

24, 

25, 

25, 

22, 

26, 

27, 

27, 28 

DATA 

28, 

29, 

29, 

26, 

158, 

64, 

30, 

31, 

159, 65 

DATA 

32, 

34, 

33, 

35, 

36, 

37, 

38, 

39, 

40, 41 

DATA 

t 

42, 

43, 

27, 

44, 

44, 

46, 

46, 

48, 

48, 50 

DATA 

50, 

52, 

52, 

54, 

54, 

56, 

56, 

58, 

58, 60 

DATA 

60, 

64, 

64, 

66, 

66, 

31, 

31,168, 

168, 26 

DATA 

28, 

45, 

45, 

47, 

47, 

49, 

49, 

51, 

51, 53 

DATA 

! 

53, 

55, 

55, 

57, 

57, 

59, 

59, 

61, 

61, 65 

DATA 

65, 

67, 

67, 

30, 

30, 

169, 

169, 

29, 

66, 67 

DATA 

64, 

65, 

60, 

61, 

68, 

72, 

72, 

76, 

76, 84 

DATA 

84, 

88, 

88, 

92, 

92, 

96, 

96, 

100, 

100, 68 

DATA 

t 

69, 

73, 

73, 

77, 

77, 

85, 

85, 

89, 

89, 93 

DATA 

93, 

97, 

97, 

101, 

101, 

69, 

70, 

74, 

74, 78 

DATA 

78, 

86, 

86, 

90, 

90, 

94, 

94, 

98, 

98,102 

DATA 

102, 

70, 

71, 

75, 

75, 

79, 

79, 

87, 

87, 91 

DATA 

91, 

95, 

95, 

99, 

99,103, 

103, 

71, 

140,l4l 
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DATA 104,108, 

108,112, 

112,120, 

120,124, 

124,128 

DATA 

128,132, 

132,136, 

136 , 104 , 

105,109, 

109,113 

DATA 

113,121, 

121,125, 

125,129, 

129 , 133 , 

133,137 

DATA 

? 

137,105, 

106,110, 

110,114, 

114,122, 

122,126 

DATA 

126,130, 

130 , 134 , 

134 , 138 , 

138,106, 

107,111 

DATA 

111,115, 

115 , 123 , 

123 , 127 , 

127,131, 

131,135 

DATA 135,139, 

139,107, 

142,143, 

48, 80, 

80,148 

DATA 

I 

150,152, 

152, 80, 

82,162, 

162,116, 

118,144 

DATA 

144,146, 

154,156, 

156,158, 

158,160, 

49, 81 

DATA 

81,149, 

151,153, 

153, 81, 

83,163, 

163,117 

DATA 119,145, 

145,147, 

155,157, 

157 , 159 , 

159,161 

DATA 

f 

62, 63, 

164,165, 

165 , 166 , 

166,167, 

167,164 

DATA 

68, 69, 

70, 71, 

72, 73 , 

74, 75, 

76, 77 

DATA 

78, 79, 

84, 85, 

86, 87, 

88, 89, 

90, 91 

DATA 

92, 93, 

94, 95, 

96, 97, 

98, 99, 

100,101 

DATA 

t 

102,103, 

104,105, 

106,107, 

108,109, 

110,111 

DATA 

112,113, 

114,115, 

120,121, 

122 , 123 , 

124,125 

DATA 

126,127, 

128,129, 

130 , 131 , 

132 , 133 , 

134,135 

DATA 136,137, 

138,139 





44.2 Es geht auch realistischer: Zentralprojektion 

Wenn uns das bisher Erreichte auch in Hochstimmung versetzen könnte, so bleiben jedoch noch 
einige Dinge, die zu beseitigen wünschenswert sind. Eines davon soll hier verbessert werden. 

Wenn Sie im letzten Programm genauer hinschauen, dann wird Ihnen vielleicht auffallen, daß 
das Haus nach hinten hin größer zu werden scheint, obwohl die hintere Wand exakt genausogroß 
ist wie die vordere. Es handelt sich dabei nachweisbar um eine optische Täuschung. Sie rührt 
daher, daß wir normalerweise feststellen, daß die Gegenstände in unserer Umwelt immer klei¬ 
ner erscheinen, je weiter sie von uns entfernt stehen. Die endlosen Eisenbahnschienen, die sich 
im Horizont treffen, sind das klassische Beispiel dafür. Man nennt dieses Phänomen auch die 
perspektivische Verzerrung. Bei der Parallelprojektion wurde das aber nicht berücksichtigt. 
Unser Auge (bzw. unser Gehirn) weiß von dem perspektivisches Effekt und zieht den Umkehr¬ 
schluß: Wenn ein Objekt (die hintere Häuserwand) hinter einem anderen Objekt (die vordere 
Wand) liegt und die gleiche Größe besitzt, dann ist es in Wahrheit größer als das vordere. Des¬ 
halb erscheint uns die hintere Wand größer. 

Wie können wir diesen Mangel beheben? Nun, eine sehr beliebte Technik ist die Einführung 
eines Fluchtpunktes (manche Maler bauen auch mehrere Fluchtpunkte in ihr Bild ein, um es 
noch realistischer erscheinen zu lassen. Das sind allerdings nur Hilfsmittel, die rein mathema¬ 
tisch auch durch einen einzigen Fluchtpunkt erreicht werden). Die verlängerten Kanten aller 
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Gegenstände, die wir in der Natur betrachten, scheinen sich nämlich in der Ferne in einem ein¬ 
zigen Punkt zu treffen, dem Fluchtpunkt (auch perspektivisches Zentrum genannt). Unsere 
Intention ist es nun, diesen Fluchtpunkt bei der Projektion der Raumkoordinaten auf eine Ebene 
zu berücksichtigen. Dies geschieht mit der sogenannten Zentral- oder perspektivischen 
Projektion. 

Unser Fluchtpunkt liegt allerdings woanders. Er stellt quasi die Stelle dar, an der sich der 
Betrachter bzw. sein Auge befindet (oder der Fotoapparat), genauer gesagt: die Stelle, an 
der sämtliche Lichtstrahlen der betrachteten Objekte in einem Punkt zusammenfallen 
(s. Bild 4.20). 



Bild 4.20: Die Zentralprojektion 


Stellen Sie sich nun vor. Sie schauen durch eine matte Glasscheibe hindurch. Auf dieser Glas¬ 
scheibe wird sich ein - wenn auch milchiges - Abbild der dahinterliegenden Welt abzeichnen 
(wir idealisieren hier natürlich, denn die Welt strahlt ja eigentlich durch die Scheibe hindurch). 
Der Weg der Lichtstrahlen geht also vom Objekt aus. Irgendwann treffen die Strahlen durch 
die Scheibe und dann in unser Auge. 

Die Scheibe soll nun den Film bzw. unseren Bildschirm darstellen. Uns interessiert also, an 
welcher Stelle die Strahlen die Scheibe schneiden. Wir haben es mit dem gleichen Problem zu 
tun wie bei der Parallelprojektion. Die Strahlen sind allerdings nun nicht wie dort parallel, 
sondern treffen sich in einem Punkt. 
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Angenommen, das Zentrum der Projektion (also quasi der Fluchtpunkt) liegt im Punkt 
Z(Zx,Zy,Zz). Der zu projizierende 3-D-Punkt besitzt die Koordinaten Q(Qx,Qy,Qz)- Mit der 
bekannten Geradengleichung in vektorieller Form: 

P = Po + s*a 


läßt sich dann folgendes ableiten: Z liegt auf der Geraden und wird für Po eingesetzt. Fehlt 
nur der Vektor a. Ihn erhalten wir durch die Verbindung der Punkte Z und Q: 



Damit erhalten wir folgende Gleichung eines Strahles (einer Geraden) vom Objektpunkt zum 
Zentrum: 


/ Qx-Zx \ 

P = Z + S* Qy-Zy 
\ Q^-Zz / 

oder in Parameterform: 

Px = Zx + s* (Qx-Zx) 

Py = Zy + S*(Qy-Zy) 

Pz ~ Zz + s»(Qz—Zj) 

Wie bei der Parallelprojektion ist P dabei der gesuchte Punkt auf der Projektionsebene, der 
Punkt also, bei dem die Gerade die Ebene (bzw. die Glasscheibe) schneidet. Uns interessiert 
jetzt, welchen Wert wir für s einsetzen müssen, damit P tatsächlich auf der Projektionsebene 
liegt. Auch hier helfen wir uns wieder, indem wir die Scheibe in die xy-Ebene setzen. Für den 
Punkt P bedeutet das, daß seine z-Koordinate Pz gleich Null ist. Damit erhalten wir aus der 
dritten Gleichung: 

0 = Zz + s*(Qz-Zz) <=> 

s = - —5?— 

Qz-Zz 

Wir setzen auch dies in die beiden ersten Gleichungen ein und formen ein wenig um: 


Px ~ Zx 


Qx-Zx 

Qz-Zz 


Py - Zy 


Qy-Zy 

Qz-Zz 


und 


Die lange Prozedur der Umformungen wollen wir Ihnen hier ersparen und teilen Ihnen das 
Ergebnis direkt mit: 



Zx*Qz ~ Qx*Zz 


Qz - Zz 


und 
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wobei: 


Px,Py - Koordinaten des projizierten Ebenenpunktes 

Qx. Qy> Qz - Koordinaten des zu projizierenden Raumpunktes 
Zx, Zy, Zz - Zentrum der Projektion 

Sie sind sicher bereits gespannt, wie die entsprechende Transformationsmatrix diesmal aus¬ 
sieht. Das ist in der Tat nicht ganz so einfach und wir benötigen hier in jedem Fall die homo¬ 
genen Koordinaten, die wir glücklicherweise bereits früher eingeführt haben. Hier ist sie: 

P = (Px*Pn Py*Pn Pz*Pn Pn) 


= (Qx*Qn Qy*Qn Qz*Qn Qn) * 

/-Zz 0 0 0 \ 

0 -Zz 0 0 

Zx Zy 0 1 



O 

o 

o 

1 

N 

N 



Wir nennen die Matrix in Kurzform auch: ZP(Zx,Zy,Zz). Die Werte P„ und Q„ sind die 
»homogenen« Faktoren, die ja bekanntlich bei homogenen Koordinaten hinzugefügt werden 
müssen (wir haben sie bei der Einführung der homogenen Koordinaten »n« genannt). Sie wer¬ 
den normalerweise gleich 1 gesetzt (Qn könnten Sie in den folgenden Ausführungen ebenfalls 
gleich 1 setzen, aber wir wollen ja eine allgemeine Formulierung, denn schließlich könnte Qn 
auch aus einer anderen Transformation stammen und wäre dann nicht mehr gleich 1). Hier spie¬ 
len sie allerdings eine Rolle - allerdings nur übergangsweise. Hier ist Pn nämlich nicht gleich 
1. Rechnen wir kurz nach, ob die Matrix wirklich stinunt. Die folgende Kontrollrechnung sollte 
Ihnen auch als Beispiel dienen, falls Sie sich eigene Transformationskombinationen (z.B. Zen¬ 
tralprojektion mit Drehung etc.) ableiten möchten: 

Das Ergebnis des obigen Ausdruckes ist: 

P = (Px*Pn Py*Pn Pz»Pn Pn) 

= (-Qx*Qn*Zz-t-Qz*Qn*Zx -Qy*Qn*Zz-t-Qz»Qn*Zy 0 Q2*Qn-Qn*Zz) 

Wenn Sie Probleme mit der Ausrechnung dieser Matrix haben, dann schauen Sie doch noch 
einmal kurz in den Anhang. 

Um aus dieser Matrix die tatsächlichen Werte für Px, Py und Pz zu berechnen, müssen wir die 
einzelnen Matrixelemente durch Pn teilen (siehe Definition der homogenen Koordinaten). Das 
geht folgendermaßen: 

Wir suchen bekanntlich die Werte für Px, Py, Pz und Pn. Aus der Gleichung für P können wir 
folgende Beziehungen ableiten (das sind einfach die entsprechenden Parametergleichungen): 

Px*Pn = -Qx*Qn*Zz + Qz*Qn*Zx 

Py*Pn = -Qy*Qn*Zz + Qz*Qn*Zy 

Pz*Pn = 0 

Pn = Qz*Qn “ Qn*Zz 
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Die formen wir wie folgt um. Wir formen exemplarisch die erste unter Zuhilfenahme der letzten 
um: 

Px*Pn = -Qx*Qn*Zj + Qz*Qn*Zx 
p _ -Qx*Qn*Zz + Qz*Qn*Zx 

* P 

p ^ -Qx*Qn*Zz + Qz*Qn*Zx 

Qz*Qn - Qn*Zz 

p _ -Qx*Zz + Qz*Zx 

' Qz - Zx 

Das ist genau die Formel, die wir oben abgeleitet haben. Die zweite Gleichung wird ganz 
genauso aufgelöst und ergibt ebenfalls das gewünschte Ergebnis. Die dritte ist ebenfalls leicht 
umgeformt: 

Pz*P„ =0 < = > 

Pz =0 

Sie sehen, die Behandlung der Zentralprojektion wird ein ganzes Stück komplizierter als die 
der parallelen Abbildung. Das liegt einfach an der Tatsache, daß wir es mit einer Division zu 
tun haben. Eine Division wird nur mit homogenen Koordinaten möglich, unter Zuhilfenahme 
des homogenen Elementes n (oder hier Qn bzw. ?„). 

Ein Programmbeispiel sparen wir uns auf, bis wir uns mit den Transformationen in 3-D ausken¬ 
nen. Bei der Parallelprojektion mußten wir ja ebenfalls bereits auf Drehungen vorgreifen. 
Genau das wollen wir hier vermeiden. 


<=> 

<=> 

<=> 
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4.5 Wir bringen Bewegung rein: Transformationen auch 
im Raum 

In den letzten Abschnitten haben wir gesehen, wie es möglich ist, dreidimensionale Gebilde 
auf einen zweidimensionalen Bildschirm zu projizieren. Bei der Realisierung in Programmen 
vermißten wir jedoch die Möglichkeit von Transformationen im Raum teilweise sehr (erinnert 
sei an die notwendigen Drehungen beim Programm für die parallele Projektion). 

Andererseits haben wir Transformationen in der Ebene bereits zur Genüge kennengelernt und 
möehten hierauf aufbauen. Dem soll hier nun entsprochen werden. 


4.5.1 Verschiebungen, Vergrößerungen, Drehungen 

Zum Anfang des Kapitels »Projektionen« haben wir bereits dargelegt, wie die 2-D-Transforma- 
tionsmatrizen in die Form für dreidimensionale Koordinaten umgewandelt werden können. Nun 
möchten wir diese Matrizen so erweitern, daß sie auch im Raum funktionieren. Beginnen wir also 
bei der einfachsten Transformation, der Skalierung (Vergrößerung bzw. Verkleinerung). 


Die 2-D-Matrix für diese Operation lautete: 



oder in homogenen Koordinaten: 


Sx 0 0 

0 Sy 0 
0 0 1 


Im dreidimensionalen Raum muß entsprechend ein Vergrößerungsfaktor Sz für die z-Koordi- 
naten eingebaut werden. Die zugehörige Matrix direkt in homogenen Koordinaten: 



■Jx 

0 

0 

0 \ 


0 

Sv 

0 

0 1 

S(Sx,Sy,S2) = 

0 

y 

0 

Sx 

0 1 


lo 

0 

0 

1 / 


Um nun einen Punkt P(x,y,z) mit dieser Matrix zu vergrößern, verwenden wir - wie in der 
Ebene - die Matrixmultiplikation, eines unserer wichtigsten Arbeitsmittel überhaupt (zur Defi¬ 
nition der Matrixmultiplikation s. Anhang): 


P' = (x'*n' y'*n' z'*n' n') 
= P(x,y,z) * S(Sx,Sy,Sz) 

= (x*n y*n z*n n) * 


/ Sx 0 0 0 

0 Sy 0 0 

0 0 Sz 0 

J 0 0 0 1 


= (x»Sx*n y*Sy*n z*S2*n) 
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und da n = 1 gesetzt werden kann: 

= (x*Sx y*Sy z*Sz 1) 

Die Parameterformen schauen wieder etwas einfacher aus: 

x' = Sx*X 
yl = Sy»y 

z' = Sz*Z 
(n- = n) 

Für die Translation (Verschiebung) benötigen wir in jedem Fall die homogenen Koordinaten. 
Die Ebenenmatrix lautete: 

( 1 0 0 
0 1 0 
Tx Ty 1 


Im Raum erweitern wir wieder: 


T(Tx,Ty,Tz) = 

/ 1 0 0 0 \ 

0 10 0 

0 0 10 

, Tx Ty Tz 1 1 

. 

Die entsprechenden Parametergleichungen heißen dann: 

x' = x + Tx 
y' = y-fTy 

Z' = Z-bTj; 

(n' = n) 




Fehlen uns nur noch die Drehungen (wenn wir einmal von den vielen anderen möglichen Trans¬ 
formationen absehen). Hier wird es ein wenig schwieriger. Unter zweidimensionalen Verhält¬ 
nissen war eine Drehung eindeutig definiert als eine Drehung um den Nullpunkt (oder später 
um einen beliebigen anderen Punkt). Im Raum reicht die Aussage »Drehung um einen Punkt« 
nicht mehr aus. Schließlich gibt es unendlich viele Richtungen, um die dann gedreht werden 
kann. Im Raum müssen wir eine Achse angeben, um die wir ein Objekt rotieren wollen. Erst 
dann reduzieren sich die Drehrichmngen auf zwei Möglichkeiten: mit oder gegen den Uhr¬ 
zeigersinn. 

Jetzt können wir uns natürlich jede beliebige Achse denken, um die ein Gebilde gedreht werden 
kann. Der Einfachheit halber aber beschränken wir uns auf die drei Koordinatenachsen. Und 
Sie werden sehen, mit dieser Grundlage sind auch Drehungen um jede beliebige Achse 
möglich. 

Übertragen wir doch erst einmal die Verhältnisse aus 2-D nach 3-D. Stellen wir uns vor, die 
2-D-Ebene befindet sich im 3-D-Koordinatensystem genau in der x-y-Ebene (die z-Koordinate 
ist an allen Stellen der Ebene gleich Null). Eine Rotation der 2-D-Ebene wäre dann auf den 
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Raum übertragen eine Rotation um die z-Achse. Da die 2-D-Rotationsmatrix für Rotationen 
gegen den Uhrzeigersinn in homogenen Koordinaten wie folgt lautete (a gibt den Dreh¬ 
winkel an): 

( cos(a) sin(a) 0 \ 

-sin(a) cos(a) 0 I 
0 0 1 / 

können wir die Raumdrehung um die z-Achse sehr einfach durch folgende Matrix ausdrücken: 


Rz(a) = 

' cos(a) sin(a) 0 0 ' 

-sin(a) cos(a) 0 0 

0 0 10 

, 0 0 0 1, 


oder in Parameterform für die Rotation des Punktes P(x,y,z): 

x' = x*cos(a) - y*sin(a) 
y' = x*sin(a) +y*cos(a) 
z' = z 
(n' = n) 


Wir sehen, die z-Koordinate ändert sich logischerweise nicht. 


Y i 

k 

J 


~7 


^ X 


Bild 4.23: Rotationen um die Raumachsen 


Bleibt uns die Beschreibung der Rotationen um die x- und die y-Achsen. Alle Rotationen sollen 
gegen den Uhrzeigersinn erfolgen. Dabei müssen Sie von der positiven Seite her auf die Spitze 
einer Achse schauen (s. Bild 4.23). Die Rotationsmatrizen lauten dann analog zur ersten für 
die Rotation um die x-Achse: 



/ 1 

0 

0 

0 \ 

Rx(a) = j 

0 cos(a) 
0 -sin(a) 

sin(a) 

cos(a) 

0 1 

0 1 


l 0 

0 

0 

1 / 
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mit der Parameterform für die Rotation eines Punktes P(x,y,z): 
x' ■= X 

y' = y*cos(a) - z*sin(a) 
z' = y*sin(a) +z*cos{a) 

und um die y-Achse: 


' cos(a) 

0 

-sin(a) 

0 

0 

1 

0 

0 

sin(a) 

0 

cos(a) 

0 

0 

0 

0 

1 


mit der Parameterform für die Rotation eines Punktes P(x,y,z): 

x* = x*cos(a) + z*sin(a) 

y' = y 

z' = -x»sin(a) + z*cos(a) 

Die Transformationsmatrix für eine Rotation um alle Achsen mit den Winkeln a (x-Achse), b 
(y-Achse) und c (z-Achse) in der Reihenfolge: Rotation um x, um y, um z können wir durch 
folgende Matrixmultiplikation berechnen: 

R,(a)y(b),(c) = R,(a) * Ry(b) * R,(c) 


Wir haben uns die Mühe gemacht und das Ergebnis berechnet: 


j cos(b)cos(c) 

cos(b)sin(c) 

-sin(b) 

0 ' 

sin(a)sin(b)cos(c) 

sin(a)sin(b)sin(c) 

sin{a)cos(b) 

0 

-cos(a)sin(c) 

+ cos(a)cos(c) 



cos(a)sin(b)cos(c) 

cos(a)sin(b)sin(c) 

cos(a)cos(b) 

0 

+ sin(a)sin(c) 

-sin(a)cos(c) 



0 

0 

0 

1 1 


Multiplizieren wir diese Mammutmatrix mit der eines Punktes, so wird dieser Punkt in alle 
drei Richtungen gedreht. Die resultierenden Parametergleichungen lauten: 


x' = x*A + y*B + z*C 
y' = x»D + y*E + z*F 
z' = x»G + y*H + z*I 


Für die Parameter A,B,... müssen Sie dann folgendes eingeben: 

A = cos(b)*cos(c) 

B = cos(b)»sin(c) 

C = -sin(b) 

D = sin(a) * sin(b) * cos(c) - cos(a) * sin(c) 

E = sin(a) * sin{b) * sin(c) + cos(a) »cos(c) 

F = sin(a) * cos(b) 

G = cos(a) * sin(b) * cos(c) + sin(a) * sm(c) 

H = cos(a) * sin(b) * sin(c) - sin(a) * cos(c) 

I = cos{a) * cos(b) 
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Falls Sie die Reihenfolge der Drehungen ändern wollen (z. B. zuerst um die z-Achse), dann müs¬ 
sen Sie die Matrix neu berechnen. Bei gleicher Reihenfolge können Sie selbstverständlich einen 
oder zwei Winkel gleich NuU werden lassen. Das Objekt wird dann um die entsprechende 
Achse nicht mehr gedreht. Dadurch fallen einige Sinus und Cosinus in den obigen Gleichungen 
fort, da sin(O) = 0 und cos(O) = 1. 

Wenn Sie die gedrehten Punkte noch auf eine Ebene projizieren möchten, um sie auf dem Bild¬ 
schirm darzustellen, dann sind die Punkte nach der Drehung zusätzlich der entsprechenden 
Projektionsmatrix zu unterwerfen. Das geschieht am besten in einem separaten Arbeitsgang. 

Was wir uns bis jetzt mühsam in grauer Theorie erarbeitet haben, das sollte nun auch einmal 
in der Praxis erprobt werden. Hierzu sehen Sie sich das folgende C-Programm an. Es realisiert 
die meisten der bisher entwickelten Transformationen samt Zentralprojektion etc. Dabei ver¬ 
wendet es in etwa die oben bereits skizzierte Struktur eines 3-D-CAD-Systems mit der Unter¬ 
teilung in Welt, Objekte, Punkte, Linien etc. Jede dieser Einheiten wird in diesem Programm 
durch eine oder mehrere Strukturen repräsentiert. 

/***itj(*»*»****itX*X*it4t*XXXtHt*XX**X*XjH«#*/ 


/** **/ 

/** Die große Demo zur **/ 

/*» tt*/ 

3-D-MIMATION »*/ 

/*» **/ 

/*» mit *¥:/ 

/*¥i Zentralprojektion, Rotation, #x/ 
/** Translation, Skalierung tt*/ 

/** X»/ 

Organisation; tt*/ 

/** objektorientiertes x*/ 

/** Drahtmodell **/ 




# Include < exec/types.h > 

#lnclude < lntultlon/lntultlon.h> 
#Include <llbrarles/mathffp.h> 


/¥: Funktlonsdeklaratlonen (nur für Aztek-Compller): */ 
/* wahlweise auch: #Include <functlons.h> */ 


VOID 

ClearScreenO; 

VOID 

Draw(); 

VOID 

Exlt(); 
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struct Message * 
VOID 

Struct Library * 

struct Screen * 

struct Window * 

VOID 

VOID 

VOID 

VOID 

LONG 


GetMsgO; 

Move()j 

OpenLlbraryO; 
OpenScreenO; 
OpenWlndowO; 
ReplyMsgO; 
ScreenToFront(); 
SetAPenO ; 
SetRGBAQ ; 

Walt(); 




struct IntultlonBase »IntultlonBase; 
struct GfxBase »GfxBase; 

LONG ^tMathBase; 


/* Struktur für 2 neue Bildschirme Initialisieren: */ 

struct NewScreen NeuerBlldschlrm = 

[ 


0 , 

/* x-Koord. linke obere 



/» Ecke (Immer 0) 

*/ 

0 , 

/» y-Koord. linke obere 



/* Ecke 

*/ 

640, 

/* Blldschlrmbrelte 

*/ 

256, 

Blldschlrmhöhe 


2 , 

/* Blldebenenzahl 


0 , 

/* Farbe der Details 


1 , 

/» Farbe der Flächen 

*/ 

HIRES, 

/» Grafikmodus: 640x256 

*/ 

CUSTOMSCREEN, 

/it Blldschlrmtyp 

*/ 

NULL, 

/* kein neuer Font 

*/ 


"Zentral-Projektlon",/* Text Im Blldschlrm-Kopf */ 
NULL, /* unbenutzt. Immer NULL */ 
NULL, keine eigene BltMap */ 

]; 


/* Struktur für zwei neue Fenster Initialisieren: */ 
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struct NewWlndow NeuesFenster = 


0 , 

/* 

x-Koord. linke ob. Ecke 

*/ 

10 , 

/* 

y-Koord. linke ob. Ecke 


640, 

/* 

Fensterbreite 


246, 

/* 

Fensterhöhe 


0 , 

/» 

Farbe der Details 

»/ 

1 , 


Farbe der Flächen 

*/ 

MOUSEBUTTONS 1 

/» 

Rückmeldg. b. Mausknopf 


RAWKEY, 

/* 

und Taste 

*/ 

ACTIVATE 1 

/* 

Fensterelemente und -typ*/ 

BORDERLESS 1 


wählen: Randlos, 

*/ 

NOCAREREFRESH 1 

/* 

keine Refresh-Meldungen 

*/ 

RMBTRAP, 

/* 

keine Menüoperationen 

*/ 

NULL, 

/* 

keine eigenen Gadgets 


NULL, 

/» 

CheckMark 


NULL, 


Text im Fenster-Kopf 

*/ 

0 , 

/* 

Adresse Screen-Struktur 

*/ 


/* 

Muß Innerhalb des 



/* 

Programmes nach dem 

»/ 


/* 

Öffnen eines Screens 

*/ 



initialisiert werden 

*/ 

NULL, 

/* 

kein SuperBitmap-Fenster*/ 

640, 

/* 

Mindestbreite 

*/ 

246, 


Mindesthöhe 


640, 

/* 

Maximalbreite 

*/ 

256, 

/* 

Maximalhöhe 

»/ 

CUSTOMSCREEN, 

/* 

Bildschirmtyp 

*/ 


struct Screen itBildschirm[2]; 
struct Window *Fenster[2]; 
struct RastPort ^(RastPort[2]; 
struct IntuiMessage »Message; 


/* Palettenfarben: */ 

LONG Palette [4][3] = 

[ 

[ 0, 0, 0) , [15, 0, 1] , 
[ 0, 4,15], [14,10, 1] 
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main() 

[ 

LONG do_program(); 


LONG fehler; 
ULONG 1; 


Für die Typ-Abkürzungen s. unter */ 
/* Exec-Include-Flle: types.h 


/* Öffnen der Intuition-, Graphics-, Mathe-Bibliotheken 
printf("3-D-Zentralprojektion / C-Demo\n"); 

IntuitionBase = 

(struct IntuitionBase »)OpenLibrary("intuition.library",OL); 
if (IntuitionBase == NULL) fehler = 1; 

eise 

[ 

GfxBase = 

(struct GfxBase *)OpenLlbrary("graphlcs.library",OL); 
if (GfxBase == NULL) fehler = 2; 

eise 

[ 

MathBase = 

(LONG »)OpenLlbrary("mathffp.library",OL); 
if (MathBase == NULL) fehler = 3; 

eise 

( 

/* Bildschirm 0 öffnen: »/ 

Blldschlrm[0] = 

(struct Screen ^()OpenScreen(&NeuerBildschlrm); 
if (Bildschirm[0] == NULL) fehler = 4; 

eise 

[ 

/* Farbpalette setzen: 
for (1=0; i<4; 1++) 

SetRGB4(8eBildschlrm[0]->ViewPort, i, 

palette[i][0], palette[i][1], palette[i][2]); 

/* Fenster 0 öffnen: */ 

/* Adresse der Screen-Struktur nachtragen: it/ 

NeuesFenster.Screen = Bildschirm[0]; 

Fenster[0] = 

(struct Window *)OpenWlndow(&NeuesFenster); 
if (Fenster[0] == NULL) fehler = 5; 
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eise 

[ 

RastPort[0] = Fenster[0]->RPort; /* RastPort merken */ 

/* Bildschirm 1 öffnen; */ 

Blldschirm[l] = 

(struct Screen *)OpenScreen(&NeuerBildschirm); 
if (Blldschirm[l] == NULL) fehler = 6; 

eise 

[ 

/* Farbpalette setzen: »/ 
for (1=0; 1<4; 1++) 

SetRGB4 (&Blldschirm[l]->ViewPort, 1, 

Palette[1][0], palette[l][1], palette[l] [2]); 

/* Fenster 1 öffnen: */ 

/* Adresse der Screen-Struktur nachtragen: */ 
NeuesFenster.Screen = Blldschirm[l]; 

Fenster[l] = 

(struct Window *)0penWindow(8cNeuesFenster); 
if (Fenster[l] == NULL) fehler = 7; 

eise 


RastPort[l] = Fenster[l]->RPort; /* RastPort merken */ 


fehler = do_program(); 

/* 

/* 

eigentliches Pro¬ 
gramm aufrufen 

*/ 

*/ 

CloseWindow(Fenster[l]); 

1 

/* 

Fenster 1 schließen 

*/ 

i 

CloseScreen(Blldschlrm[l]); 

1 

/* 

Screen 1 schließen 


j 

CloseWlndow(Fenster[0]); 

1 

/» 

Fenster 0 schließen 

*/ 

J 

CloseScreen(Bildschlrm[0]); 

1 

/* 

Screen 0 schließen 

*/ 

] 

CloseLlbrary(MathBase); 

1 

/* 

Mathe-Library dose 


j 

CloseLlbrary(GfxBase); 

/* 

Graphlcs-Lib. dose 

*/ 

j 

CloseLibrary(IntultlonBase); 

/* 

Intultion-Llb. dose 

*/ 

Exit(fehler); 

/* 

Ausgsing m. Fehlercode 
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/» Hauptprogramm */ 

/******¥:¥:tt***^****/ 


/» Globale Variablen und Strukturen: */ 

/* Addition von 90 zu einem Winkel w mit: 0 <= w < 360 */ 
/* Ergebniswinkel liegt wieder zwischen 0 und 360 */ 

/tk (Verwendung für die Cosinusberechnung der folgenden 
/* Sinustabelle). Jt/ 

#define W_PLUS_90(w) ( ((w) >= 270)? (w)-270 : (w)+90 ) 


/* Slnus/Coslnustabelle: 


*/ 


/» Die Tabelle enthält in 1-Grad-Abständen */ 


/¥: Sinuswerte von 0 bis 359 Grad jeweils */ 
/* multipliziert mit 2"15=32768. */ 
/* Das oberste Bit ist das Vorzeichenbit. */ 
/* Für die Ermittlung des Cosinus muß zum */ 
/* Winkel vorher jeweils 90 Grad addiert »/ 
/» werden. */ 


WORD Sinus[] = 
[ 


0 x0000, 

0 x 023 C, 

0x0478, 

0x06B3, 

0x08EE, 

/* 

0- 4 Grad */ 

0x0B28, 

0x0D6l, 

0x0F99, 

OxllDO, 

0x1406, 

/* 

5- 9 Grad */ 

0 x163A, 

0xl86C, 

0x1A9D, 

OxlCCB, 

0X1EF7, 

/* 

10-14 Grad */ 

0 x2121, 

0x2348, 

0x256C, 

0x278E, 

0x29AC, 



0x2BC7, 

0x2DDF, 

0x2FF3, 

0x3203, 

0x3410, 



0 x3618, 

0x381D, 

0x3AIC, 

0x3C18, 

0x3E0E, 



0x4000, 

0x4lED, 

0x43D4, 

0x45B7, 

0x4794, 



0x496B, 

0x4B3D, 

0x4D08, 

0x4ECE, 

0x5OBE, 



0x5247, 

Ox53FA, 

0x55A6, 

0x574C, 

0x58EB, 



0x5A82, 

0x5C13, 

0x5D9D, 

0x5FlF, 

0x609A, 



0x620E, 

0x637A, 

0x64DE, 

0 x663A, 

0x678E, 



0x68DA, 

0x6AlE, 

0x6B5A, 

0x6C8D, 

0x6DB8, 



0x6EDA, 

0x6FF4, 

0x7104, 

0x720D, 

0x730C, 



0x7402, 

0x74EF, 

0x75D3, 

0x76AE, 

0x7780, 



0x7848, 

0x7907, 

0x79BC, 

0x7A68, 

0x7B0B, 



0x7BA3, 

0x7C33, 

0x7CB8, 

0x7D34, 

0x7DA6, 



0x7E0E, 

0x7E6D, 

0x7ECl, 

0x7F0C, 

0x7F4C, 



0x7F83, 

0x7FB0, 

0x7FD3, 

0x7FEC, 

0x7FFB, 
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OxVFFF, 0x7FFB, 0x7FEC, 0x7FD3, 0x7FB0, /it 90-94 Grad */ 

0x7F83, 0 x7F4C, 0x7F0C, 0x7EC1, 0x7E6D, /* 95-99 Grad */ 

0x7E0E, 0x7DA6, 0x7D34, 0x7CB8, 0x7033, /* ... 

0x7BA3, 0x7B0B, 0 x7A68, 0x79BC, 0x7907, 

0x7848, 0x7780, 0x76AE, 0x75D3, 0 x74EF, 

0x7402, 0x7300, 0x720D, 0x7104, 0 x6FF4, 

OxöEDA, 0x6DB8, 0x6C8D, 0x6B5A, 0x6AlE, 

0x68DA, 0x678E, 0x663A, 0 x64DE, 0x637A, 

0x620E, 0x609A, 0x5FlF, 0x5D9D, 0x5013, 

0x5A82, 0x58EB, 0x5740, 0x55A6, 0x53FA, 

0x5247, 0x508E, 0 x4ECE, 0x4D08, 0x4B3D, 

0x496B, 0x4794, 0x45B7, 0x43D4, 0x4lED, 

0x4000, 0x3E0E, 0x3018, 0x3AlC, 0x381D, 

0x3618, 0x3410, 0x3203, 0x2FF3, 0x2DDF, 

0x2BC7, 0x29AC, 0x278E, 0x2560, 0x2348, 

0x2121, 0xlEF7, OxlOOB, 0xlA9D, 0x1860, 

0xl63A, 0x1406, OxllDO, 0x0F99, 0x0D6l, 

0x0B28, OxOSEE, 0x06B3, 0x0478, 0x0230, 

0x0000, 0 xFD 04, 0xFB88, 0 xF94D, 0xF 712, A 180-184 Grad */ 

0xF4D8, 0xF29F, 0xF067, 0xEE30, OxEBFA, A ... */ 

0xE9G6, 0 xE794, 0xE563, 0xE335, 0xE109, 

OxDEDF, 0xDGB8, 0xDA94, 0xD872, 0x0654, 

0x0439, 0x0221, 0x0000, OxGOFO, OxOBFO, 

0xG9E8, 0xG7E3, 0 xG5E4, 0xG3E8, 0xG1F2, 

0x0000, 0xBE13, 0xB020, 0 xBA49, 0xB860, 

0xB695, 0 xB403, 0xB2F8, 0xB132, 0xAF72, 

OxAOB9, OxA006, 0xAA5A, 0xA8B4, 0xA715, 

0xA57E, OxA3EO, 0xA263, OxAOEl, 0x9F66, 

0x 9OF2, 0x9086, 0x9B22, 0x9906, 0x9872, 

0x9726, 0x95E2, 0 x94a 6, 0x9373, 0x9248, 

0x9126, 0x9000, 0x8EF0, 0x8OF3, 0 x80F4, 

0x8BFE, 0x8Bll, 0x8A20, 0x8952, 0x8880, 

0x87B8, 0x86F9, 0x8644, 0x8598, 0 x84F5, 

0x8450, 0x8300, 0x8348, 0x8200, 0x825A, 

0x81F2, 0x8193, 0x813F, 0x80F4, 0x80B4, 

0x8070, 0x8050, 0x8020, 0x8014, 0x8005, 

0x8000, 0x8005, 0x8014, 0x8020, 0x8050, A 270-274 Grad 
0x8070, 0x80B4, 0 x80F4, 0x 813F, 0x8193, A ... 

0x81F2, 0x825A, 0x8200, 0x8348, 0x8300, 

0x8450, 0x84F5, 0x8598, 0x8644, 0x86F9, 

0x87B8, 0x8880, 0x8952, 0x8A2O, 0x8Bll, 

OxSBFE, 0x8CF4, 0x8OF3, 0x8EFC, 0x9000, 
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0x9126, 

0x9248, 

0x9373, 

0x94A6, 

0x95E2, 

0x9726, 

0x9872, 

0x9906, 

0x9B22, 

0x9086, 

0x9DF2, 

0 x9F66, 

OxAOEl, 

0xA263, 

0xA3ED, 

0xA57E, 

0xA715, 

0xA8B4, 

0xAA5A, 

0xAC06, 

0xADB9, 

0xAF72, 

0 xB 132 , 

0xB2F8, 

0xB4C3, 

0xB695, 

0xB86C, 

0xBA49, 

0xBC2C, 

0xBE13, 

OxCOOO, 

0xClF2, 

0xC3E8, 

0xC5E4, 

0x07E3, 

0xC9E8, 

OxCBFO, 

OxCDFD, 

OxDOOD, 

0xD221, 

0xD439, 

0xD654, 

0xD872, 

0xDA94, 

0xDCB8, 

OxDEDF, 

0xE109, 

OxE335, 

0xE563, 

0xE794, 

0xE9C6, 

OxEBFA, 

0xEE30, 

0xF067, 

0xF29F, 

0xF4D8, 

0xF712, 

0xF94D, 

0xFB88, 

0xFD04 /* 355-359 Grad »/ 


struct punkt /» Struktur eines Raumpunktes ¥;/ 

[ 


WORD 

WORD 

WORD 


x; 

y; 

z; 


/* x-Koord. des Punktes ¥:/ 
/* y-Koord. des Punktes ¥:/ 
/* z-Koord. des Punktes ¥:/ 


struct linle 


/* Liniendefinition 




WORD pl; 
WORD p2; 


/* Nr. des 1. Endpunktes */ 
/* Nr. des 2. Endpunktes */ 


struct Objekt 


/* Objekt-Struktur 


*/ 


UWORD 

anz^pun; 

/* 

Anzahl der Punkte 


struct punkt *punkte; 

/* 

Zeiger auf Punktearray x/ 

UWORD 

anz_lln; 

/* 

Anzahl der Linien 


struct 

linle *llnien; 

/* 

Zeiger auf Llnienarray x/ 

UWORD 

färbe; 

/* 

Obj ektfarbe 


char 

*name; 

/* 

Obj ektname 


UBYTE 

sichtbar; 

/* 

=0: unsichtbar 

*/ 




=1: sichtbar 

*/ 

UBYTE 

transform; 

/* 

=0: Objekt wird nicht 




/* 

transformiert 




/* 

=1: Obj ekt wird 




/* 

transformiert 
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struct weit /* Alles, was ln der Welt ist */ 

[ 

UWORD anz_obj; /* Anzahl der Objekte */ 

struct Objekt *objekte; /* Zeiger auf Objektarray */ 

/* TransformatIonswerte für die gesamte Welt: */ 


WORD 

x_rot; 

/* Rotatlonswlnkel (Grad) 

*/ 

WORD 

y_rot; 



WORD 

z_rot; 



WORD 

x_ska; 

/* Skallerungswerte ln 

*/ 

WORD 

y_ska; 

/* Zehnteln 


WORD 

z_ska; 



WORD 

x_tra; 

/* Translatlonswerte 

*/ 

WORD 

y_tra; 



WORD 

z_tra; 



WORD 

x_beo; 

A Koordinaten des 

*/ 

WORD 

y_beo; 

A Beobachters 


WORD 

z_beo; 



WORD 

xe_tra; 

A Ebenentranslatlon 

*/ 

WORD 

ye_tra; 

A nach der Projektion 


WORD 

xe_ska; 

/* und Ebenenskallerung 


WORD 

ye_ska; 

/* zur Anpassung an die 




/¥: Blldschlrmauflösung 

*/ 

Urwelt 

= 




[ 2 , 0 , 


340,20,0, 20,20,20, 0,0,0, 0,0,-500, 


200 ,100, 2,1 





USHORT Fen_Nr_s = 

1 , 

/* 

sichtbare Fensternr. 


Fen_akt = 

1 , 

/* 

Aktives Fenster 

*/ 

Ferr_Nr_v = 

Oj 


verdeckte Fensternr. 



/* Werte zur Erhöhung/Erniedrigung von »/ 

/* Transformationswerten per Tastatur: »/ 

#deflne SKALIEIL.INC 1 /Jf Inc-Wert Skalierung »/ 

#deflne DREH_INC 1 /* Inc-Wert Drehung */ 

#deflne TRANSLA_INC 4 /* Inc-Wert z-TransIatlon */ 

#deflne BE0B_INC 15 A + z-Koord. Beobachter */ 
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/¥; RAW-Tastencodes definieren: */ 

#deflne SHIFT (lEQUALIFIER^LSHIFT I IEQUALIFIER_RSHIFT) 

# define PLUS 0x5e 

# define PLUS2 Oxlb 

# define MINUS 0x4a 

# define MAL 0x5d 

# define GETEILT 0x5c 

#define C_RECHTS 0x4e 

# define C_LINKS 0x4f 

# define C_AUF 0x4c 

# define C_AB 0x4d 

#define Z_C_AUF 0x3e 

#define Z_C_AB Oxle 

#define Z_C_RECHTS 0x2f 
#define Z_C_LINKS 0x2d 

#define DEL 0x46 

#define HELP 0x5f 

#define Z_ENTER 0x43 

# define Z_NULL OxOf 

#define Z_PUNKT 0x3c 

# define ESC 0x45 


LONG do_program() 

[ 

VOID welt_lnit(), 

schaffe_welt(), 
lnlt_ausgabe(), 
welt_verteller (), 
pun_ska(), 
pun_tra(), 
pun_rot(), 
pun_zpj(), 
obj_zeichnen(), 
add_winkel(); 

struct weit weit; /* Speicher für Welt-Struktur */ 

struct Objekt Jtobjekte; /k Array aller Original-Objekte »/ 

struct Objekt i(trans_obj; /* Array transformierte Objekte */ 

ULONG dass; /* Speicher für die Intuition- »/ 

USHORT Code, qualifier; /* Message-Struktur */ 

APTR address; 

SHORT mouse_x, mouse_y; 
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WORD x_rot_inc = 

0, 

/* 

y_rot_lnc = 

0, 


z_rot_inc = 

0; 


USHORT Fen^zwis; 


/* 

USHORT verd_flag 

= 1; 

/» 



/* 


aktuelle Rotationsincrements */ 


Zwischenspeicher Double-Buff */ 
Flag für verdecktes/offenes */ 
Zeichnen */ 


if (!verd_flag) 


Fen_zwls = Fen_Nr_v; Für offenes Zeichnen 

Fen_Nr_v = Fen__Nr_s; 


/* Weltstruktur initialisieren: »/ 
welt_inlt(8cwelt ); 

/* Daten für die Welt laden: */ 

schaffe_welt(&welt, &objekte, &trans_obj); 


/* Zeichenschleife: */ 

/****Xk^tk*X*it****»»»»k**)f}ti^****k»/ 

Code = 0; 

while (code != ESC) /* Schleife bis Esc betätigt k/ 

[ 

REGISTER DWORD flag = 0; 


/* Objektdaten ln Arrays für transformierte */ 
/* Objekte übertragen: */ 
init_ausgabe(&welt, trans_obj); 


/* Die ganze Welt 
welt_verteiler(1, 
welt_verteller(2, 

welt_verteiler(3) 

/» Die ganze Welt 
welt_verteIler(4, 


transformieren: */ 
&welt, trans_obj); 
&welt, trans_obj); 
&welt, trans_obj); 

projizieren: »/ 
Stwelt, trans_obj); 


/* Skalierung i/ 
Translation */ 
/* Rotation */ 


/» Die ganze Welt (evt. verdeckt) zeichnen: */ 

Move(RastPort[Fen_Nr_v], OL, OL); /* Fenster */ 

ClearScreen(RastPort[Fen_Nr_v]); /* löschen */ 
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welt_verteller(5, &welt, trans_obj); /* zeichnen */ 

if (verd_flag) 

[ 

/* Verdecktes Fenster nach vorne bringen ¥i/ 

/* und FerL_Nr_v <-> Fen_Nr_s tauschen: */ 

ScreenToFront( Bildschirm[Fen_Nr_v] ); 

Fen_zwis = Fen_Nr_v; 

FerL_Nr_v = Fen_Nr_s; 

Fen_Nr_s = Fen_zwis; 


/» Input-Schleife: tk/ 

do 

[ 

/* Auf Taste testen und ggf. nach Code einiesen: */ 

/* Nur dann auf Zeichen warten, wenn keine Drehung */ 

/* Eingelesen wird der Tastencode (kein ASCII!) */ 
if (x_rot_inc == 0 && 

y_rot_inc == 0 && 

z_rot_inc == 0) 

[ 

/* Auf Message warten: */ 

Walt(lL << Fenster[Fen_akt]->UserPort->mp_SigBit); 
flag = 1; /* Flag für warten jf/ 

] 

/* Meldungen abarbeiten: »/ 
while (Message = 

(struct IntuiMessage x)GetMsg(Fenster[Fen_akt]->UserPort)) 

E 

/X Daten aus Message-Struktur lesen: x/ 
dass = Message->Class; 

Code = Message->Code; 

quallfier = Message->Qualifier; 
address = Message->lAddress; 

mouse_x = Message->MouseX; 

mouse_y = Message->MouseY; 

ReplyMsg(Message); /x Message zurückgeben x/ 
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Bei Maustaste (nur wenn die linke */ 

/* Maustaste niedergedrückt wurde): »/ 

If (dass == MOUSEBUTTONS && code == MENUDOWN) 

[ 

/* Welt auf Bildschirm positionieren: */ 
welt.xe_tra = mouse_x; 
welt.ye_tra = mouse_y; 

flag = 0; 

] 

eise /* anderenfalls: Tastatur */ 

[ 

switch (code) 

[ 

case PLUS2: 

case PLUS: /* Vergrößerung */ 

welt.x^ska += SKALIER_INC, 
welt.y_ska += SKALIER_INC, 
welt.z_ska += SKALIEIl_INC; 
flag = 0; 
break; 

case MINUS: /* Verkleinerung */ 

welt.x_ska -= SKALIEILINC, 
welt.y_ska -= SKALIER_INC, 
welt.z_ska -= SKALIER_INC; 
flag = 0; 
break; 

case C_RECHTS: 

if (SHIFT & quallfler) /k SHIFT? */ 

[ 

/k ja: Drehung um z-Achse rechts */ 
z_rot_inc -= DREH_INC; 

] 

eise 

/* nein: Drehung um y-Achse rechts 
y_rot_inc -= DREH_INC; 

] 

flag = 0; 
break; 

case C_LINKS: 

if (SHIFT & quallfier) /* SHIFT? »/ 

( 
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/* ja: Drehung um z-Achse links */ 

z_rot_inc += DREH_INC; 

] 

eise 

[ 

/* nein: Drehung um y-Achse links */ 
y_rot_lnc += DREH_INC; 

] 

flag = 0; 
break; 

case C_AUF: /* Drehung um x-Achse rechts »/ 
x_rot_lnc -= DREILING; 
flag = 0; 
break; 

case C_AB: /* Drehung um x-Achse links »/ 
x_rot_lnc += DREILING; 
flag = 0; 
break; 

case Z_G_REGHTS: /« Welt entfernen */ 
welt.z_tra += TRANSLJLING; 
flag = 0; 
break; 

case Z_G_LINKS: /¥: Welt annähern */ 

welt.z_tra -= TRANSLA_ING; 
flag = 0; 
break; 

case Z_G_AUF: /x Beobachter entfern, x/ 

welt.z_beo -= BE0B_ING; 
flag = 0; 
break; 

case Z_G_AB: /x Beobachter annähern x/ 

welt.z_beo += BE0B_ING; 
flag = 0; 
break; 

case DEL: /x Koord.-Kreuz ein/aus x/ 

((weit.objekte)+0)->sichtbar = 

(((welt.objekte)+0)->slchtbar)? 0 : 1; 
flag = 0; 
break; 

case HELP: /x Alles stop und zurück x/ 
/X Welt-Werte rücksetzen: x/ 
welt_lnlt(8cwelt); 

case Z_ENTER:/x Nur Rotationen stoppen x/ 
x_rot_inc = /x Rotation stoppen x/ 
y_rot_lnc = 
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z_rot_inc = 0; 
flag = 0; 
break; 

case Z_NULL: /* Koordinatenkreuz trans- 
/» formieren ein/aus 
((welt.objekte)+0)->transform = 

(((welt.obj ekte)+0)-> transform)? 
flag = 0; 
break; 

case Z_PUNKT:/if Verd. Zeichnen ein/aus 
if (vercLflag = (verd_flag)? 0 : 1) 

[ 

FerLjlr_v = Feruzwis; /* ein 

] 

eise 

[ 

Fen_zwls = Fen_Nr_v; /» aus 
Fen_Nr_v = FerL.Nr_s; 

] 

break; 

case ESC: /» Ende 

flag = 0; 
break; 

j /* switch */ 

] /¥: eise */ 

] /ti while */ 

add_winke1(&weIt. x_rot, x_rot_inc); 
add_wlnkel(&welt.y_rot, y_rot_inc); 
adcLwlnkel(&welt.z_rot, z_rot_inc); 

] while (flag); /* solange flag != 0 */ 

] /* while */ 
return((L0NG)TRUE); 


/* Addiere pos./neg. Wert zu einem Winkel: »/ 
/*******»*;f*^tk**»***}t***^t*»*»****x**»**;(x*;(*/ 

VOID add_winkel(winkel, inc) 

WORD xwlnkel; 

WORD inc; 


*/ 

0 : 1; 

*/ 

*/ 

*/ 
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5<-wlnkel += inc; /» Werte addieren ¥i/ 

If (»Winkel >= 360) /* Winkel auf Werte von »/ 

»Winkel -= 360; /» 0 bis 359 bringen »/ 

if (»Winkel < 0) 

»Winkel += 360; 


/» Initialisiere Welt-Struktur: »/ 

/»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»/ 

VOID welt_lnlt(w) 
struct weit »w; 

[ 

Urwelt.anz_obj = w->anz_obj; /» Anzahl Objekte und Ob- »/ 
Urwelt.objekte = w->Objekte; /» jektpointer unverändert »/ 

»w = urwelt; /» Urwelt nach Welt »/ 

] 


/»»»»»»»»»»*»»»»»»»»»»»»»»»»»»»»»»»»»»»/ 

/» Einrichtung aller Datenstrukturen: »/ 

/»»»*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»/ 

/» Dieses Array gibt an, wieviele Punkte und »/ 

/» und wieviele Linien die verschiedenen »/ 

/» Objekte besitzen, welche Farbe und welche »/ 

/» Namen sie haben: »/ 

struct new_objekt 

UWORD anz_pun; /» Anzahl Punkte »/ 

UWORD anz_lin; /» Anzahl Linien »/ 

UWORD färbe; /» Farbe »/ 

char »name; /» Name »/ 

] new_objekt[] = 

[ 

[ 6, 3, /* Punkte/Linien Objekt 1 »/ 

2, "Koordinatensystem"], /» Farbe/Name Objekt 1 »/ 


[34,43, 

3, "Haus"] 


/» Punkte/Linien Objekt 2 »/ 
/» Farbe/Name Objekt 2 »/ 
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[0,0,0, "\0"] /* Ende-Kennzeichen tt/ 


/» Dieses Array enthält alle Punkte aller »/ 

/* Objekte. Die Reihenfolge der Objekte und tt/ 

/* der Punkte muß stets eingehalten werden! »/ 

struct punkt _punkte[] = 

( 

/* Koordinatenkreuz: »/ 

[-15, 0, 0], [ 40, 0, 0), [ 0,-15, 0], 

[ 0, 40, 0] , [ 0, 0,-15] , [ 0, 0, 40) , 

Haus: */ 

[-6, 6, 14], [ 6, 6, 14], [ 6,-6, l4] , 
[-6,-6, 14], [ 6, 6,-14], [-6, 6,-l4] , 
[-6,-6,-l4], [ 6,-6,-l4] , [ 0,l4, l4] , 

[ 0,14,-14], [-2,-6, 14], [-2, 0, l4] , 

[ 2, 0, 14], [ 2,-6, 14], [ 6, 4, 10], 

[ 6, 4, 4] , [ 6, 0, 4] , [ 6, 0, 10] , 

[ 6, 4, -4] , [ 6, 4,-10] , [ 6, 0,-10] , 

[ 6, 0, -4], [ 6,-2, 2], [ 6,-2, -6], 

[ 6,-6, -6] , [ 6,-6, 2] , [ 2,12, -4] , 

[ 2,16, -4], [ 2,16, -6], [ 2,12, -6], 

[ 0,14, -4] , [ 0,16, -4] , [ 0,16, -6] , 

[ 0,14, -6] 


/* Dieses Array enthält alle Linien aller */ 
/¥: Objekte. Die Reihenfolge beachten! */ 
/* Die Numerierung der Punkte ist stets */ 
/¥: relativ zum ersten Punkt eines Objektes! */ 
/» (Erster Objektpunkt gleich Null) 


struct llnie _linien[] = 


/» Koordinatenkreuz: */ 
[0,1], [2,3], [4,5], 


Haus: tt/ 

[ 0, 1] , [ 1, 2] , [ 2, 3] , [ 3, 0] , 

[ 1, 4] , [ 4, 7] , [ 7, 2] , [ 7, 6] , 

[ 6, 5] , [ 5, 4] , [ 5, 0] , [ 6, 3] , 
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[ 8, 9], [ 0, 8], [ 8, 1], [ 4, 9], 

[ 5, 9], [10,11], [11,12], [12,13], 

[14,15], [15,16], [16,17], [17,14], 

[18,19], [19,20], [20,21], [21,18], 

[22,23], [23,24], [24,25], [25,22], 

[26,27], [27,28], [28,29], [29,26], 

[30,31], [31,32], [32,33], [26,30], 

[29,33], [27,31], [28,32] 

]; 


/* Speicherreservierungen: »/ 

/* Anzahl der Objekte: »/ 

#deflne ANZ_0BJ (slzeof new_objekt / slzeof(struct new_objekt) - 1) 
/* Anzahl der Punkte: */ 

#deflne ANZ_PUN (slzeof _punkte / slzeof(struct punkt)) 


struct Objekt _objekte[ANZ_0BJ]; /* Reserv. für Objekte */ 
struct Objekt _trans_obj[ANZ_0BJ]j f.transformierte Obj. */ 
struct punkt _trans_pun[ANZ_PUN]; /* Spelcherres. für */ 

/» transformierte Punkte */ 


/» Alle Welt-, Objekt-, Linien- und */ 

/* Punkt-Definitionen elnlesen */ 

VOID Schaffe_welt(w, p_objekte, p_trans_obj) 
struct weit »w; /* Zeiger auf Weltstruktur */ 

struct Objekt **p_objekte; /* Zeiger auf Objekt- */ 

struct Objekt **p_trans_obj; /* Array-Zelger */ 


REGISTER UWORD 1; 

REGISTER UWORD p_ges = 0, /* Aktuelle Gesamtpunktzahl »/ 

l_ges =0; /* Aktuelle Gesamtllnlenzahl */ 

*p_objekte = _objekte; /4t Adresse des Obj ekt-Arrays 4t/ 

4tp_trans_obj = _trans_obj; /4t Adresse des Obj ekt-Arrays 4t/ 

/4t für transformierte Arrays 4t/ 
w-> obj ekte = _objekte; /4t Adresse des Obj ekt-Arrays 4t/ 
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/* ln die Weltstruktur */ 


for (1=0; new_objekt[i].anz_pun != 0; 1++) 


/* Objektstruktur für jedes Objekt belegen: 
_objekte[i].anz_pun = new_objekt[i].anz_pun; 
_objekte[l].punkte = &_punkte[p_ges]; 
_objekte[l].anz_lin = new_objekt[i].anz_lin; 
_objekte[i].linien = &_llnlen[l_ges]; 
_objekte[i].färbe = new_objekt[i].färbe; 
_objekte[i].name = new_objekt[i].name; 

_obj ekte[1].slchtbar= 1; 

_objekte[i].transform = 1; 


*/ 

/*Punktez.*/ 
/*P.-Array*/ 
/»Llnienz.^t/ 
/j^L. -Arrayit/ 
/itFarbe */ 
/*Name 

/»sichtbar*/ 
/»transf. */ 


p_ges += new_objekt[i].anz_pun; /* akt. Gesamtzahl Punkte */ 
L_ges += new_objekt[i].anz_lln; /* akt. Gesamtzahl Linien */ 


w->anz_obj = 1; 


/* Anzahl der Objekte eintragen */ 


/* Ausgabe und Transformationen vorbereiten durch */ 
/* Übertragung der Original-Objektdaten ln die */ 
/* Arrays für transformierte Daten */ 
/**************************************************/ 


VOID init_ausgabe(w, trans_obj) 

struct weit »w; 

struct Objekt *trans_obj; 

[ 

struct Objekt »Objekte; 
REGISTER UWORD 1, k; 

REGISTER UWORD p_ges = 0; 

Objekte = w-> Objekte; 

for (1=0; 1 < w-> anz_obj; 

[ 

trans_obj[i] = objekte[l] 


/» Zeiger Weltstruktur »/ 
/» Zeiger auf transfor- »/ 
/» mierte Objekte »/ 


/» Zeiger auf Objekte »/ 

/» Indizes FOR-Schlelfe »/ 

/» akt. Gesamtpunktzahl »/ 

/» Zeiger initialisieren»/ 

i++) /» Jedes Objekt bearb. »/ 

; /» Objekt-Struktur in »/ 

/» Struktur für trans- »/ 

/» formierte Objekte »/ 

/» übertragen »/ 
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/* Adresse des entsprechenden Array-Elementes als */ 
/* Adresse des ersten Objekt-Punkte-Array-Elementes: */ 
trans_obj[i].punkte = &_trans_pun[p_ges]; 

p_ges += objekte[l].anz_pun; /» Startpos. next Array */ 

for (k=0j k < objekte[i].anz_pun; k++) 

[ 

/X Punkte-Array ebenfalls übertragen: */ 
trans_obj[1].punkte[k] = objekte[l].punkte[k]; 


/* Ganze Welt bearbeiten: */ 


VOID welt_verteiler(modus. 

w, 

trans_obj) 



UWORD modus; 

/* 

Art der Bearbeitung: 

*/ 



/* 

=1: Skalierung 




/* 

=2: Translation 




/* 

=3: Rotation 




/* 

=4: Zentralprojektion */ 



/* 

=5: Zeichnung 



struct weit *w; 

/* 

Zeiger auf Weltstruktur 


struct Objekt *trans_obj; 

/* 

Zeiger auf Strukturen-Array 



/* 

für transformierte Objekte 

*/ 


VOID obj_transf(), 
pun_ska(), 
pun_tra(), 
pun_rot(), 
puiL_zen(), 
obj_zelchnen(); 

REGISTER UWORD i; 

/* Alle Objekte transformieren: */ 
for (1=0; 1 < w->anz_obj; i++) 

[ 

/* Alle Bearbeitungen am aktuellen Objekt vornehmen */ 
/* evt. Ergebnisse in trans_obj[] speichern */ 

switch (modus) 
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case 1: 

/* If (trans_obj[i].transform) *//* transformieren? »/ 

[ 

obj_transf(pun_ska, &trans_obj[i], 

w->x_ska, w->y_ska, w->z_ska); 


break; 
case 2: 

If (trans_obj[i].transform) /* transformieren? */ 

{ 

obj _trans f(pun_tra, &trans_obj[i], 

w->x_tra, w->y_tra, w->z_tra); 


break; 
case 3- 

if (trans_obj[i].transform) /* transformieren? */ 

[ 

obj_transf(pun_rot, 8ctrans_obj [i], 

w->x_rot, w->y_rot, w->z_rot); 


break; 
case 4: 

obj_transf(pun_zen, &trans_obj[i], 

w->3iL_beo, w->y_beo, w->z_beo); 

break; 
case 5: 

obj_zeichnen(w, &trans_obj[i]); 
break; 

] /* switch 
] /* for *:/ 

] 


/¥: Transformation eines Objektes: x/ 

/k***#it****5tX*it*Äkk*^t»}t**»»it*»jtk**k/ 

VOID obj_transf(Operation, Objekt, tl, t2, t3) 

VOID (»Operation)0; /» Zeiger auf Funktion, »/ 

/» die die Transformation »/ 

/» durchführen soll: */ 

/» pun_ska(), pun_tra(), »/ 

/» pun_rot(), pun_zen() »/ 
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struct Objekt *objekt; /* Adresse des zu trans- */ 

/*: formierenden Objektes »/ 

WORD tl, t2, t3; A Transformationsparameter */ 

( 

struct punkt »punkte; /* Zeiger auf Punkte-Array »/ 

REGISTER UWORD i; 

punkte = objekt->punkte; /» Adresse des Punkte-Arrays */ 

/* Alle Punkte transformieren: »/ 
for (1=0; 1 < objekt->anz_pun; i++) 

[ 

/» Transformationsroutine indirekt aufrufen: »/ 
(»Operation)(&punkte[i], tl, t2, t3); /»I Pkt transf.»/ 

] 

] 


/» Skalierung eines Punktes: »/ 

/»»»»»»»»»»»»»»»»»»»»»»»»»»»»»/ 


VOID pun_ska(punkt, xs, ys, 
struct punkt »punkt; 

WORD xs, ys, zs; 


zs) 

/» Zeiger auf Punkt-Struktur »/ 
/» Skalierungsparameter »/ 


punkt->x = (punkt->x » xs) / 
punkt->y = (punkt->y » ys) / 
punkt->z = (punkt->z » zs) / 


10 ; 

10 ; 

10 ; 


/» Skalierfaktor in 
/» Zehntel 




/» Translation eines Punktes: »/ 

/»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»/ 

VOID pun_tra(punkt, xl, yl, zl) 
struct punkt »punkt; 

WORD xl, yl, zl; 


punkt->x += xl; 
punkt->y += yl; 
punkt-> z += zl; 
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/* Rotation eines Punktes; */ 

VOID pun_rot(punkt, xr_w, yr_w, zr_vf) 
struct punkt »punkt; 

WORD xr_w, yr_w, zr_w; /x Rotationswinkel */ 

[ 

REGISTER LONG x,y,z; /5t Register-Vorschläge */ 

REGISTER LONG sln_w, cos_w; 

LONG zwis; 

X = punkt->x; /* Register mit Koordinaten laden 5t/ 

y = punkt->y; 
z = punkt->z; 

/5t Rotation um die x-Achse: 5t/ 

if (xr_w) /5t x-Winkel != 0 ? 5t/ 

( 

/5t Sinus/Cosinus mal 2" 15 aus Tabelle holen: 5t/ 

sln_w = Sinus[xr_w]; 

cos_w = Sinus [ W_PLUS_90(xr_w) ]; 

/5t Drehmatrizen berechnen und durch 2" 15 teilen 5t/ 

/5t (Rückrechnung der Slnus-/Cosinuswerte) 5t/ 

zwis = (y5tcos_w - Z5tsin_w) >> 15; 

z = (y5tsln_w + z5tcos_w) > > 15; 

y = zwis; 


/5t Rotation um die y-Achse: 5t/ 

if (yr_w) /5t y-Winkel != 0 ? 5t/ 

[ 

/5t Sinus/Cosinus mal 2" 15 aus Tabelle holen; 5t/ 

sln_w = sinus[yr_w]; 

cos_w = Sinus[ W_PLUS_90(yr_w) ]; 

/5t Drehmatrizen berechnen und durch 2" 15 teilen 5t/ 
/5t (Rückrechnung der Slnus-/Coslnuswerte) 5t/ 

zwis = ( x5tcos_w + z5tsirL_w) > > 15; 
z = (-X5tsln_w + z5tcos_w) > > 15; 

= zwis; 


X 
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/X Rotation um die z-Achse: x/ 

if (zr_w) /X z-Winkel != 0 ? x/ 

{ 

/X Sinus/Cosinus mal 2"15 aus Tabelle holen; x/ 

sln_w = sinus[zr_w]; 

cos_w = slnus[ W_PLUS_90(zr_w) ]; 

/X Drehmatrizen berechnen und durch 2''15 teilen x/ 

/X (Rückrechnung der Slnus-/Coslnuswerte) x/ 

zwls = (xxcos_w - yxsin_w) > > 15; 

y = (xxsin_w + yxcos_w) > > 15; 

X = zwis; 

] 

punkt->x = x; /x Koordinaten wieder zurück x/ 

punkt->y = y; 
punkt->z = z; 

] 

/X Zentralprojektion eines Punktes x/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

VOID pun_zen(punkt, xz, yz, zz) 

struct punkt xpunkt; /x Zeiger auf Punktstruktur x/ 

WORD xz, yz, zz; /x Koordinaten Beobachter x/ 

[ 

REGISTER WORD zwls; 

If (zwis = punkt->z - zz) /x nur bei zwls != 0 x/ 

[ 

punkt->x = (LONG)xz - ( (LONG)zz x (LONG) (punkt->x - xz) )/zwls; 
punkt->y = (LONG)yz - ( (LONG)zz x (LONG) (punkt->y - yz) )/zwls; 
punkt-> z = 0; 

] 

eise 

[ 

/X z-Koord. Punkt gleich z-Koordinate Beobachter: x/ 
punkt- >x = xz; 
punkt->y = yz; 
punkt->z = 0; 

] 

] 
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/* Objekt (verdeckt) auf Bildschirm zeichnen */ 

VOID obj_zeichnen(w, Objekt) 
struct weit *w; 

struct Objekt »Objekt; /» Zeiger auf zu »/ 

/» zeichnendes Objekt »/ 

[ 

struct punkt »punkte; /» Zeiger auf Punkte-Array »/ 

struct linie »linien; /» Zeiger auf Linien-Array »/ 

REGISTER UWORD i; 

WORD xl, x2, yl, y2; /» Endpunktkoordinaten »/ 

if (objekt->sichtbar) /» Nur sichtbares Objekt »/ 

/» zeichnen »/ 

[ 

punkte = objekt->punkte; 
linien = objekt->linien; 

/» Farbe setzen: »/ 

SetAPen( RastPort[Fen_Nr_v], (LONG)objekt->färbe ); 

for (i=0; i < objekt->anz_lin; i++) 

[ 

xl = w->xe_tra + w->xe_ska » punkte[ linien[i].pl ] .x; 

yl = w->ye_tra - w->ye_ska » punkte[ linien[i].pl ] .y; 

x2 = w->xe_tra + w->xe_ska » punkte[ linien[i].p2 ] .x; 

y2 = w->ye_tra - w->ye_ska » punkte[ linien[i] .p2 ] .y; 

/» Linie zeichnen: »/ 

Move( RastPort[Fen_Nr_v], (LONG)xl, (LONG)yl ); 

Draw( RastPort[Fen_Nr_v], (L0NG)x2, (L0NG)y2 ); 


) 


Starten Sie das Programm doch einfach einmal. Kaum wurde es geladen, öffnet sich ein neuer 
Bildschirm, die Farben wechseln, und es erscheint ein hübsches kleines Ferienhäuschen mit 
Türen und Fenstern in Vogelperspektive auf dem Monitor. Gehen Sie doch einmal näher heran: 
Betätigen Sie etwa 10-20mal die Plus-Taste (auf der amerikanischen Tastatur die Taste »]«). Das 
Ferienhäuschen wird zu einem stattlichen Ferienhaus. Mit der Minustaste des Ziffernblockes 
können Sie das Ganze wieder etwas auf Abstand bringen. Da Sie nun aber einmal davorstehen, 
sollten Sie es nicht versäumen, »einmal ums Haus zu gehen«: Drücken Sie kurz auf die Taste 
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< Cursor rechts >. Na, wer hätte das gedacht? Wir drehen uns tatsächlich ums Haus - oder 
dreht sich das Haus um uns oder um sich selbst? Drücken Sie doch noch einmal dieselbe Taste 
und noch einmal und noch einmal... Wird Ihnen schon schwindelig? Dann wäre es vielleicht 
besser, Sie betätigen einige Male die Taste < Cursor links > oder noch besser: < Enter > 
(Ziffernblock). Jetzt steht das Haus wieder. 

Nehmen wir einen weiteren Anlauf: Je zweimal < Cursor links > und < Cursor auf> und 

< Shift> < Cursor rechts > . Drehungen um verschiedene Achsen überlagern sich. Und jetzt: 
Etwa lOmal die »4« des Ziffemblocks: Sie verlagern das Drehzentrum. Das Haus dreht sich 
nicht mehr um sich selbst, sondern um einen anderen Punkt usw. Probieren Sie doch ein wenig 
herum! 

Neben den angesprochenen Tastenfunktionen bietet Ihnen das Programm eine Vielzahl von 
weiteren Eingriffsmöglichkeiten. (Das »Z« hinter einer Taste bedeutet: Diese Taste muß im 
Ziffernblock betätigt werden): 

< Mausknopf re > Positionieren der Objekte auf dem Bildschirm an die Mauszeiger¬ 

position 

< Plus > Vergrößern der Objekte 

< Minus Z > Verkleinern der Objekte 

< 4 Z > Annähern der Objekte 

< 6 Z > Entfernen der Objekte 

< 8 Z > Entfernen des Beobachters (Fluchtpunkt) 

< 2 Z > Annähern des Beobachters (Fluchtpunkt) 

< Cursor re > Drehung um die y-Achse rechts 

< Cursor li > Drehung um die y-Achse links 

< Cursor auf> Drehung um die x-Achse rechts 

< Cursor ab > Drehung um die x-Achse links 

<Shift> <Crsr re> Drehung um die z-Achse rechts 
<Shift> <Crsr li> Drehung um die z-Achse links 

< Del > Koordinatenkreuz ein/aus 

< 0 Z > Koordinatenkreuz transformieren ein/aus 

<Help> alle Drehungen aus, Transformationen zurück auf die ursprünglichen 

Werte 

< Enter Z > alle Drehungen aus 

< Punkt Z > Double Buffering ein/aus 

< Esc > Programm beenden 

Sie sollten jedoch vom Gebrauch des linken Mausknopfes Abstand nehmen, da es dann passie¬ 
ren kann, daß das Programm nicht mehr auf Ihre Eingaben reagiert (warum, das werden Sie 
sofort erfahren)! Sollte Ihnen das dennoch passiert sein, dann drücken Sie wiederholt so lange 
noch einmal auf den linken Mausknopf, bis das Programm wieder auf Sie zu sprechen ist. 

Sicher werden Sie eine ganze Zeit Ihre Freude an dem Programm haben. Eines Tages jedoch 
gefallt Ihnen das Haus nicht mehr und es verlangt Sie nach einem Auto, einem Fahrrad oder 
einer ganzen Stadt. Nun, das Programm ist in der Beziehung äußerst flexibel. Es kann ohne 
Änderungen praktisch beliebig viele Objekte handhaben. Jedes Objekt kann seine eigene Farbe 
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besitzen, sichtbar oder unsichtbar sein etc. Jedes Objekt kann aus beliebig vielen Punkten und 
Linien bestehen. Das einzige, was Sie daffir machen müssen, ist, die notwendigen Daten 
(Objektbeschreibung, Punkte, Linien) in das Programm einzusetzen und neu zu kompilieren. 
Vielleicht lagern Sie die Daten ja auch aus (z.B. auf Disk) und können das eigentliche Pro¬ 
gramm stets unverändert halten. 

Zur Zeit jedenfalls besteht die kleine Welt des Computers aus zwei Objekten: ein Koordinaten¬ 
kreuz und ein Haus. Zur Zeit können auch nur alle Objekte gemeinsam oder einzelne Objekte 
gar nicht transformiert werden. Das liegt daran, daß die Transformationsdaten nur einmal in 
der Weltstruktur auftauchen. Wenn Sie diese (Rotation, Translation etc.) jeweils zusätzlich in 
die Objektstruktur jedes Objektes einsetzen, was programmtechnisch überhaupt kein Problem 
ist, dann können Sie jedes Objekt einzeln und getrennt für sich drehen, vergrößern usw. Die 
Koordinaten jedes Objektpunktes beziehen sich dann nur auf das objekteigene Koordinaten¬ 
system. Jedes Objektkoordinatensystem hat seine - ebenfalls variable - Position in der Welt. 
Selbstverständlich besitzt die Welt ihrerseits noch weiterhin ihre Transformationen und kann 
insgesamt gedreht, vergrößert werden etc. 

Doch kommen wir zur eigentlichen Programmbeschreibung: 

Was anderes sollte in einem Amiga-Programm zuerst passieren, als das Öffnen und Initialisie¬ 
ren der verschiedensten Systemkomponenten. Wir haben das alles bereits in einem früheren 
Kapitel kennengelernt. Da wären zunächst die Libraries. Das Programm benötigt - neben der 
bereits offenen Exec-Library - natürlich die Intuition- und die Graphics-Library. Vorsorglich 
für Ihre zukünftigen Erweiterungen an diesem Programm wird sogar noch - obwohl keinerlei 
Fließkommaarithmetik vorkommt - die MathFFP-Library geöffnet. Sie ist zuständig für die 
»kommahaltigen« Grundrechenarten. 

Was dann folgt, kennen Sie ebenfalls bereits: Das Öffnen eines neuen Bildschirmes mit einem 
Fenster. Derer werden allerdings hier gleich zwei geöffnet. Das hängt mit dem sogenannten 
Double-Buffering, dem verdeckten Zeichnen zusammen, worauf wir sogleich zu sprechen 
kommen. Wundern Sie sich nicht, daß Sie keine Fenster sehen. Wir haben die Option BOR¬ 
DERLESS gewählt. Die Fenster besitzen also keinerlei Umrahmung. Ferner befinden sich 
keine Gadgets an den Fenstern. Sie sind also völlig unsichtbar. Mittels SetRGB4() werden 
gleich noch die Farben gesetzt. Erst dann kommt es zum eigentlichen Programmaufruf: 
do_program(). 

Bevor Sie sich dem allerdings zuwenden, sollten Sie noch kurz bei den Dingen verharren, die 
sich unter der Überschrift »Globale Variablen und Strukturen« befinden. Da wäre zunächst ein¬ 
mal eine riesige Tabelle: die Sinustabelle. Für die Drehmatrizen benötigen wir wohl oder übel 
eine Möglichkeit, Sinus und Cosinus von beliebigen Winkeln zu errechnen. Das könnten wir 
selbstverständlich sehr einfach mit Hilfe der Funktionen aus der transzendenten Mathematik- 
Library des Amiga bewerkstelligen. Aber wie lange wird das dauern? Wir möchten unsere 
Objekte schließlich einigermaßen schnell über den Bildschirm drehen. Nun, kein Problem. Da 
in dem Programm sowieso nur mit ganzzahligen Winkeln (also ohne Komma) gerechnet wird, 
erstellen wir einfach eine Tabelle mit 360 Werten (für die Winkel 0 bis 359). Jeder Wert gibt 
dabei den Sinus einer ganz bestimmten Gradzahl an. Sollte das Programm nun den Sinus 
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z.B. von 157 Grad benötigen, so schlägt es in dieser Tabelle nach und hat in Mikrosekunden¬ 
schnelle den gewünschten Sinus. Eine komplizierte Berechnung ist nicht notwendig. 

Mit der gleichen Tabelle können Sie übrigens auch den Cosinus eines Winkels ermitteln. Aus 
der Schule kermen Sie vielleicht noch die Gleichung: 

cos(a) = sin(a+90) 

oder in Radiant: 

cos(a) = sin(a+PI/2) 

Der Cosinus von 100 Grad ist also gleich dem Sinus von 100 + 90 = 190 Grad. 90 zum Winkel 
addiert, in der Sinustabelle nachgeschlagen, fertig. Worauf Sie allerdings achten müssen: Der 
Winkel darf nie größer als 359 Grad werden, da das die Tabelle sprengen würde. Das ist aber 
nicht so schwierig, denn 360 Grad sind genau eine Umdrehung, entspricht also 0 Grad. Wird 
ein Winkel also größer als 359 Grad, so ziehen wir einfach 360 ab. 

Die Tabelle hätte auch viel kleiner ausfallen können. Ohne große Umrechnung hätten wir auch 
lediglich die Sinuswerte von 0 bis 179 oder gar von 0 bis 89 Grad erfassen brauchen. Aber der 
Speicher des Amiga ist ja groß, die Rechenzeit jedoch kostbar. 

Wie aber speichern wir die Sinuswerte ab? Schließlich liegen alle Werte zwischen -1 und 1. 
Mit Komma zu rechnen kostet viel Zeit. Die Lösung: In der Tabelle sind eigentlich nicht direkt 
die Sinuswerte gespeichert. Vielmehr wurden alle Werte erst noch mit 2*^ = 32 768 multipli¬ 
ziert. Das entspricht im Dualsystem einer Verschiebung um 15 Bit nach links. Damit passen 
sie genau in ein Wort (das oberste, 15. Bit, dient als Vorzeichenbit). Später im Programm wird 
das bei den Multiplikationen mit den Koordinaten eines Punktes wieder rückgängig gemacht 
(wenn auch ohne Rundung), dort wird (wohlgemerkt nach der Multiplikation!) wieder durch 
2>5 = 32 768 geteilt (15 Bit nach rechts geschoben). Diese Verschiebungen kann der Prozessor 
(auch in C) sehr schnell und einfach mit einem einzigen Befehl durchführen. Es ist also keine 
langwierige Division notwendig! Soweit zur Sinustabelle. 

Es folgen die Strukturdefinitionen für einen Punkt, eine Linie, ein Objekt und die ganze Welt 
(ja, jeder Punkt, jede Linie ist eine Struktur, in der sich die Koordinaten bzw. die Nummern 
der Endpunkte befinden). Innerhalb der Objektstruktur befinden sich zwei Zeiger. Alle Punkte 
sowie alle Linien eines Objektes sind in zwei großen Arrays enthalten (jedes Array besteht also 
aus einer Vielzahl von Punkt- bzw. Linienstrukturen). Die Zeiger in der Objektstruktur zeigen 
eben auf diese Arrays. Weiterhin steht in dieser Struktur, aus wievielen Punkten und Linien sich 
das Objekt zusammensetzt, seine Farbe, ja. Sie können sogar einen Namen angeben. Vermerkt 
ist hier weiterhin, ob das Objekt auf dem Bildschirm überhaupt sichtbar und ob es den Welt¬ 
transformationen unterworfen sein soll. 

In der Weltstruktur findet sich schließlich ein Zeiger auf ein weiteres Array. Die Strukturen aller 
Objekte sind nämlich ebenfalls in einem Array zusammengefaßt. In der Weltstruktur erkennen 
Sie auch endlich die Werte für die verschiedenen Transformationen, die Koordinaten des Beob¬ 
achters und die Ebenentransformationen für die Bildschirmanpassung. 
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Zwei weitere Arrays sollten nicht unerwähnt bleiben. Es sind dies ein zweites Objekt-Array 
und ein zweites Punkte-Array. (Die Namen: trans_obj[ ] (auch: _trans_obj[ ]) und 
_trans_pun[ ]). Sie sind haargenauso aufgebaut und auch genauso groß wie die oben 
beschriebenen. Sie werden zu Programmanfang sogar mit exakt denselben Werten beschrieben. 
Wenn allerdings ein Objekt mit allen seinen Punkten transformiert und projiziert werden soll, 
so werden nur in diesem zweiten Satz von Objekt- bzw. Punkte-Arrays die Zwischen- und 
Endergebnisse dieser Manipulationen gespeichert. Es wird also eigentlich nur mit dem zweiten 
Array-Satz gerechnet. Damit bleiben die ursprünglichen Punktkoordinaten stets erhalten. 

Die Zusammenhänge veranschaulicht das folgende Bild: 



Bild 4.24: Datenorganisation des C-Progranunes 

Noch sind alle diese Strukturen nicht initialisiert (also mit Daten gefüllt). Das geschieht in der 
Funktion schaffe_welt(), die gleich (fast) als erstes in do_program() aufgerufen wird: 
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Bevor wir die Vorgänge in dieser Funktion verstehen, sollten wir uns zunächst mit der Datenein¬ 
gabe für eine Weltsituation beschäftigen (schauen Sie also unter die Überschrift »Einrichtung 
aller Datenstrukturen«). Da befindet sich zunächst ein Array von Strukturen, die die neuen 
Objekte beschreiben (new_objekt[ ]). Hier geben Sie - falls Sie die Szenerie von Koordina¬ 
tensystem und Haus ändern möchten - für jedes Objekt an, wie viele Punkte, wie viele Linien, 
welche Farbe und welchen Namen es hat. Die Anzahl der hier eingetragenen Array-Elemente 
bestimmt, wie viele Objekte die Welt hat (hier 2), die Reihenfolge bestimmt die Objektnummer. 

Als nächstes kommt das Punkte-Array _punkte[ ]. Es enthält alle Punkte aller Objekte, 
geordnet in der Reihenfolge der Objekte. Die Reihenfolge der Punkte gibt definiert dabei die 
jeweilige Punktnummer. Für jedes Objekt beginnt die Numerierung allerdings wieder bei Null. 
In diesem Array tragen Sie die Koordinaten aller Ihrer Eckpunkte ein. 

Das letzte Array, das Sie interessieren muß, wenn Sie neue Objekte eingliedern möchten, ist 
das Array aller Linien Jinien[ ]. Hier sind die Nummern aller Start- und Endpunkte aller 
Objekte gespeichert. Der Aufbau ist ansonsten ähnlich dem Array _punkte[ ]. 

Jetzt werden Sie sicher die Funktion schaffe_welt( ) besser verstehen. Hier nämlich wird das 
normale Objekt-Array (auf das der Funktion ein Zeiger übergeben wird) mit den notwendigen 
Werten aufgefüllt. Unter anderem mit den Adressen der Punkte- und Linienstarts für das jewei¬ 
lige Objekt. 

Jetzt, wo alles eingerichtet ist, kehren wir zurück zum Hauptprogramm do_program(). 
Dort beginnt nämlich die große Hauptschleife, die bei jedem Neuzeichnen der Welt einmal 
durchlaufen wird, so lange, bis Sie die Taste < Esc > betätigt haben. Und was geschieht in der 
Schleife? Nun, nachdem die einzelnen Transformationen und die Projektion durchgeführt wur¬ 
den, wird das Bild neu gezeichnet. Vorher aber ruft das Programm noch init_ausgabe( ) auf. 
Hier werden die Arrays für Objekte und die für die Punkte in diejenigen Arrays übertragen, 
die wir eben als trans_obj[ ] und _trans_pun[ ] vorgestellt haben. Alle folgenden Rechnun¬ 
gen beziehen sich nur auf diese beiden Arrays. 

Jetzt aber kann es richtig losgehen. Nacheinander werden .die Funktionen für Skalierung, 
Translation, Rotation und Zentralprojektion aufgerufen. Alle führen die entsprechenden 
Matrixmultiplikationen mit allen Punkten der gesamten Welt aus. Alle werden aber auch über 
ein und dieselbe Routine aufgerufen: welt_verteiler( ). Ein übergebenes Flag zeigt an, wel¬ 
che Operation ausgeführt werden soll. Dieser Verteiler ruft nun für jedes einzelne Objekt wie¬ 
der eine Routine auf, die die Operation ausführen soll. 

Diese Routine ihrerseits ruft für jeden Punkt eines Objektes die Funktion auf, deren Adresse 
übergeben wurde (hier also die Transformationsroutinen). Jetzt endlich sind wir dort, wo ein 
einzelner Punkt transformiert wird. Es handelt sich um die Routinen pun_ska(), 
puii_tra(), puii_rot( ) und pun_zen( ). Hier finden die tatsächlichen Matrizemnultiplika- 
tionen statt. Die Formeln werden Urnen sicher bekannt Vorkommen. 

Sind endlich alle Punkte aller Objekte der Welt transformiert, kehrt das Programm wieder nach 
do_program( ) zurück. Sind nun auch alle Transformationen ausgeführt, kann endlich 
gezeichnet werden. Vorher löschen wir noch eben den Bildschirm und dann geht die Post ab. 
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Gezeichnet wird ebenfalls über welt_verteiler( ), denn es soll ja die ganze Welt gezeichnet 
werden. Dann allerdings wird die Funktion obj jeichnen( ) angewählt, die ein ganzes Objekt 
in der richtigen Farbe zu Bild bringt. 

Kaum sind wir zurück in do_prograni( ), überfallt uns schon ein neues Schicksal: »Verdeck¬ 
tes Fenster nach vorne bringen« steht da ganz lapidar im Kommentarteil, dann folgt ein Aufruf 
ScreenToFront(), der einen Bildschirm zuoberst bringt. Ja, was denn jetzt? Ohne es bisher zu 
erwähnen, haben wir an verschiedenen Stellen im Programm eine Technik vorbereitet, deren 
Effekt Sie leicht testen können. Starten Sie das Programm noch einmal, betätigen Sie eine oder 
mehrere Cursortasten, so daß sich die Objekte zu drehen beginnen. Jetzt tippen Sie kurz auf 
den Dezimalpunkt Ihres Ziffernblockes. Sehen Sie den Unterschied? Das Bild bzw. die Objekte 
beginnen ziemlich stark zu flackern. Woran liegt das? Nun, irgendwann im Verlauf des Pro¬ 
grammes müssen wir den Bildschirm löschen, um das neue Bild zu zeichnen. Bevor allerdings 
das gesamte neue Bild fertig ist, ist einige Zeit vergangen, in der sich nichts oder nur Teile des 
Objektes auf dem Bildschirm befanden. Der unerwünschte Effekt: Flackern. 

Dem ist aber abzuhelfen. Der Trick heißt: Double Buffering oder zu gut deutsch: verdecktes 
Zeichnen. Ganz zu Anfang wurde bereits erwähnt, daß wir nicht einen, sondern zwei Screens 
mit je einem Fenster geöffnet haben. Es kann allerdings immer nur der oberste Screen betrach¬ 
tet werden. Beim Zeichnen gehen wir nun so vor: Während auf dem sichtbaren Bildschirm das 
alte Bild unverändert verbleibt, wird im unsichtbaren Screen gelöscht, gezeichnet und sonstig 
gewerkelt. Erst wenn alles dort fertig ist, dann holen wir den bislang unsichtbaren Bildschirm 
eben mit ScreenToFront() nach vorne: keine Periode des Schwarzsehens, kein Flackern. Als 
nächstes wird der jetzt unsichtbare Bildschirm neu bearbeitet usw. 

Im Programm geben die Variablen Fen_Nr_s und Fen_Nr_v die Nummer des sichtbaren 
bzw. unsichtbaren Bildschirms (Fensters) an. Diese Nummer bestimmt bei jeder Zeichenope¬ 
ration, welcher Rasterport übergeben wird. Beim Bildwechsel wechseln wir auch die Num¬ 
mern in diesen beiden Speichern aus. Mit dem Dezimalpunkt können Sie das Ganze aber auch 
abschalten. Schieben Sie doch einmal den Screen nach unten. Da ist er! Der zweite Screen. 
Zugegeben, es ist ein wenig unfein, für dieses Double-Buffering zwei Screens zu öffnen. Wir 
hätten auch einfach die Bitmaps des Fensters wechseln können. Das wäre allerdings ein wenig 
aufwendiger gewesen. So geht es doch auch (ein Nachteil: Sie dürfen nicht auf den linken 
Mausknopf kommen, da sonst das falsche Fenster aktiv werden könnte. Damit wäre das Pro¬ 
gramm von Ihren Eingaben abgeschnitten). 

Aber weiter: Wir kommen zur Tastaturabfrage. Wird das Objekt zur Zeit nicht gedreht, so kön¬ 
nen wir mit Wait( ) auf eine Taste warten (in der Fensterstruktur hatten wir angegeben, daß 
uns jeder Tasten- oder Maustastendruck gemeldet wird). Ansonsten überspringen wir die War¬ 
terei und stellen sofort mit GetMsg( ) fest, ob eine Nachricht (Taste) angekommen ist. Die 
Nachricht besteht aus der IntuiMessage-Struktur mit: 


Class 

Code 

Qualifier 

Mouse_x 

Mouse_y 


Message-Art (IDCMP-Flag) 
RAW-Code der Taste 
gleichzeitig gedrückte Taste (Shift etc.) 
x-Position Maus (nur bei Mausknopf) 
y-Position Maus (nur bei Mausknopf) 
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Mit ReplyMsg( ) geben wir die Message zurück. Anschließend führen wir die entsprechenden 
Aufgaben durch switch aus. Die Variable flag ist stets dann gleich Null, wenn nicht auf eine 
weitere Taste gewartet werden soll. Das ist darm der Fall, wenn eine gültige Taste betätigt wurde 
oder wenn das Objekt zur Zeit rotiert. Bei < Esc > endet die Routine und gibt einen Fehlercode 
an main() zurück. 

4.5.2 Rotation um beliebige Raumachsen 

Nun können wir unsere Objekte bereits um die drei Koordinatenachsen drehen. Um aber einen 
allgemeinen Ausdruck zu erhalten, interessiert uns die Drehung um eine beliebige Achse im 
Raum. Das klingt zunächst ein wenig kompliziert, ist aber halb so schlimm, da wir hierzu 
eigentlich nur auf die bekannten 3-D-Transformationsmatrizen zurückgreifen müssen. Wir 
werden wieder einmal sehen, welchen Nutzen die Matrizenschreibweise für unsere Belange 
hat. 

Zunächst aber müssen wir die Achse, um die sich alles drehen soll, definieren. Das unterneh¬ 
men wir wieder mit der bekannten vektoriellen Geradengleichung: 

P = Po + s*R 

in Parameterform also: 

X = Xo -f S»Rx 

y = yo + s*Ry 

Z = Zo -f S*Rz 

wobei: 

P - ein berechneter Punkt der Geraden mit den Koordinaten x,y,z 
Po - ein beliebiger Punkt der Geraden mit den Koordinaten xo,yo,zo 
R - der Richtungsvektor mit den Parametern Rx,Ry,Rz 
s - Verlängerungsfaktor des Richtungsvektors 

Unsere Strategie entspricht ganz genau der Rotation um einen beliebigen Punkt in der Ebene 
(s. dort). Wir werden also versuchen, die Achse, um die gedreht werden soll, auf eine Koordina¬ 
tenachse zu manövrieren. Dann können wir die gewünschte Drehung ganz einfach auf bekannte 
Drehungen um Koordinatenachsen zurückführen. Das werden wir erreichen, indem wir die 
Gerade zunächst so verschieben, daß sie mit einem beliebigen Punkt durch den Koordinaten- 
Nullpunkt verläuft. Als nächstes drehen wir sie so um die x-Achse, daß sie sich vollständig in 
der x-z-Ebene be f i n det. Es folgt eine Drehung um die y-Achse, so daß die Gerade mit der z- 
Achse zusammenfällt. Jetzt sind wir in der Lage, die eigentlich gewünschte Drehung auszufüh¬ 
ren. Wir drehen das Objekt also mit dem gewünschten Winkel um die z-Achse. Zum Schluß 
müssen die beiden Drehungen um x- und y-Achse sowie die Translation wieder rückgängig 
gemacht werden - fertig. Die angeführte Abbildung 4.25 soll Ihnen den Zusammenhang noch 
einmal verdeutlichen. 
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Bild 4.25: Schritte zur Drehung um eine beliebige Raumachse 


Das Ganze beginnt also mit der Verschiebung der Linie in den Ursprung des Koordinaten¬ 
systems. Dies erreichen wir mit der Translationsmatrix; 


1 

0 

0 

0 

Q 

1 

0 

0 

T(-xo-yo-zo) = Q 

0 

1 

0 

-xo 

-yo 

Zq 

1 


Der Punkt Po(xo,yo,zo) wird hier also in den Koordinaten-Nullpunkt verschoben. Am Ende 
unserer Drehung müssen wir diesen Punkt natürlich wieder mit der folgenden Translation 
zurückschieben: 
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1 

0 

0 

0 \ 


0 

1 

0 

0 1 

T(xoyo,zo) = 

0 

0 

1 

0 1 


1 Xo 

yo 

Zo 

1 / 


Der nächste Schritt wird ein wenig komplizierter: Die Gerade soll um die x-Achse auf die x-z- 
Ebene gedreht werden. Drehen können wir bereits perfekt, doch um welchen Winkel? Um das 
herauszubekommen, müssen wir ein wenig in unseren Geometrie-Kenntnissen kramen. 
Schauen Sie sich hierzu bitte einmal Bild 4.26 an. 



Bild 4.26: Drehung der Dreh-Achse auf die x-z-Ebene 

Für die Bestimmung des Winkels wl projizieren wir die Gerade zunächst auf die y-z-Ebene. 
Beachten Sie, daß hier keine Drehung vorgenommen wird! Vielmehr haben wir es mit einer 
einfachen parallelen Projektion zu tun. Angenommen sei ein beliebiger Punkt der Geraden 
P(x,y,z). Von diesem Punkt ziehen wir also eine Parallele zur x-Achse. Der Punkt, in dem die 
Parallele die y-z-Ebene schneidet, ist der projizierte Punkt P' mit den Koordinaten (0,y,z). 
Der Winkel wl, der notwendig ist, um die Gerade auf die x-z-Ebene zu drehen, wird genausogut 
von der projizierten Geraden und der z-Achse eingeschlossen (s. Bild). Jetzt ist es allerdings 
viel einfacher, diesen Winkel zu berechnen. 

Nach der Definition eines Winkels im rechtwinkligen Dreieck gilt nämlich (c ist die Verbin¬ 
dung: Nullpunkt -> Projektionspunkt P'): 

sin(wi) = y/c 
cos(wi) = z/c 
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c ist uns nicht völlig unbekannt, denn wir können für c nach dem Satz des Pythagoras folgendes 
einsetzen: 


c2 = y2 + ^2 

Damit könnten wir rein theoretisch den Winkel wi berechnen. Da das jedoch viel Rechenzeit 
benötigt (eine Wurzel und ein Arcussinus müßten berechnet werden), werden wir das allerdings 
vermeiden. Entwickeln wir also eine Transformationsmatrix für diese Drehung um die x- 
Achse. Normalerweise lautet die - wie bekaimt: 

'1 0 0 0 ' 

R N ^ 0 cos(wi) sin(wi) 0 

0 -sin(wi) cos(wi) 0 

J 0 0 0 1 ( 


Für die Winkelfunktionen setzen wir jetzt die beiden obigen Gleichungen ein und erhalten: 

II 0 0 0 \ 

0 z/c y/c Ol 

0 -y/c z/c 0 I 

,0 0 0 1 / 

Sie sehen, wir benötigen gar keinen Winkel, müssen allerdings c durch Wurzelbildung errech¬ 
nen. Die später benötigte Rücktransformation ist ebenfalls leicht ermittelt: 



1 

0 

0 

0 \ 

Rx(-Wi) = 

0 

0 

z/c 

y/c 

-y/c 

z/c 

0 1 

0 


0 

0 

0 

1 / 


Nun liegt die Drehachse also in der x-z-Ebene. Der nächste Schritt wäre die Drehung dieser 
Geraden um die y-Achse auf die z-Achse. Das geht völlig analog zu unserer vorherigen Dre¬ 
hung, wie Sie der folgenden Zeichnung entnehmen können. 



Bild 4.27: Drehung der Dreh-Achse auf die z-Achse 
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Auch hier ist wieder nach dem Drehwinkel W 2 gefragt. 

Bei der bereits durchgeführten Drehung um die x-Achse ist die x-Koordinate des Punktes P logi¬ 
scherweise erhalten geblieben. Ebenfalls unverändert geblieben ist die Streckenlänge d zwi¬ 
schen dem Nullpunkt und P. Wir können sie berechnen aus (Satz des Pythagoras im Raum, 
betrachten Sie dazu noch einmal Bild 4.26) 

dd- = yp- + y'^ + z^ 

= x^ -I- c^ 

(Auch hier berechnen Sie d selbst durch Ziehen der Wurzel aus dem rechten Teil der Glei¬ 
chung). Sie können d also auch aus der seit der letzten Drehung bekannten Variablen c errech¬ 
nen. Die y-Koordinate des gedrehten Punktes P" ist selbstverständlich gleich 0 (schließlich 
liegt er in der x-z-Ebene). Die z-Koordinate errechnen wir leicht durch erneute Anwendung 
des pythagoräischen Lehrsatzes (s. Abbildung): 

e^ = d^ - x^ 

= x^ -I- c^ - x^ 


e ist also gleich dem bereits oben berechneten c, was uns einige Rechenarbeit erspart. Um jetzt 
die gesuchte Rotationsmatrix zu finden, setzen wir nach Bild 4.27 auf: 

sin(w 2 ) = x/d 
cos(w 2 ) = c/d 

Die normale Rotationsmatrix für eine Drehung um die y-Achse sollte Ihnen bereits bekannt 

cos(w2) 0 -sin(w2) 0 

0 10 0 

sin(w2) 0 cos(w2) 0 

0 0 0 1 

Mit den beiden letzten Gleichungen erhalten wir: 



c/d 

0 

-x/d 

0 

Ry(W2) = 

0 

1 

0 

0 

x/d 

0 

c/d 

0 


0 

0 

0 

1 


Und fertig ist die Rotationsmatrix. Wie oben, ersparen wir uns die Berechnung des Winkels 
W 2 per Arcussinus etc. Ermitteln wir noch eben die inverse Matrix: 


c/d 0 x/d 0 

0 10 0 
-x/d 0 c/d 0 

0 0 0 1 
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Endlich liegt die Rotationsachse auf der z-Achse des Koordinatensystems. Jetzt kann das Objekt 
ganz normal mit der Rotationsmatrix Rz(a) um die z-Achse gedreht werden. Danach machen 
wir alle unsere Drehungen wieder rückgängig. Damit können wir die ganze Operation in einer 
langen Formel zusammenfassen: 

^achseCä) ~ 

T(-xo-yo-Zo) * Rx(wi) * Ry(w 2 )» 

Rz(a)» 

Ry(-W 2 ) * Rx(-Wl) * T(Xo,yo,Zo) 

Beachten Sie, daß die Winkel wi und W 2 nie wirklich ausgerechnet werden müssen. Die Koor¬ 
dinaten xo, yo, Zo geben einen Punkt auf der Drehachse an. Der Winkel a ist der eigentliche 
Drehwinkel um die Achse. 

Selbstverständlich sind Sie in der Lage, aus diesen vielen Matrizenmultiplikationen eine ein¬ 
zige Matrix Rachse(a) zu errechnen, die die gesamten Drehungen und Rückdrehungen etc. in 
einem durchführt. Mit dieser Matrix (ansonsten mit dem obigen Produkt) müssen Sie dann 
jeden zu drehenden Punkt multiplizieren. 
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Viel haben wir bereits geschafft. Wir sind in der Lage, komplexe räumliche Gebilde zu definie¬ 
ren, sie im Raum zu verschieben, zu vergrößern, um beliebige Achsen rotieren zu lassen, sie 
schließlich auf den Bildschirm zu projizieren unter Berücksichtigung von Fluchtpunkt, Beob¬ 
achter etc. Eine Sache hat sicher auch Sie bisher stets gestört; Alle Objekte, ob klein, ob groß, 
waren durchsichtig. Die eigentlich verdeckten hinteren Kanten waren sichtbar, als hätten wir 
Modelle aus Draht in den Händen. 

Die Darstellung dieser folgerichtig als Drahtmodelle bezeichneten Gebilde ist die einfachste 
Art und Weise der räumlichen Projektion, da es uns nicht zu interessieren braucht, welche 
Linien und Punkte wir nun tatsächlich zeichnen müssen und welche nicht. Um den räumlichen 
Eindruck jedoch noch perfekter zu gestalten, sollten wir Versuche unternehmen, hier die Initia¬ 
tive zu ergreifen. 

Es existieren nun für die verschiedensten Anwendungen die unterschiedlichsten Algorithmen 
zur Verdeckung eigentlich versteckter Linien und Flächen. Auf den nächsten Seiten werden Sie 
einige kennenlernen. 


5.1 Noch einfach: verdeckte Linien in 3-D-Funktionen 

5.1.1 Das Prinzip 

In diesem und in den nächsten Kapiteln wollen wir zwei Fliegen mit einer Klappe schlagen: 
Zum einen werden wir näher an unser Ziel der verdeckten Linien gelangen, zum anderen lernen 
Sie eine interessante Möglichkeit kennen, schöne Bilder durch dreidimensionale Funktionen 
zu erzeugen. 

Normale zweidimensionale Funktionen sind Ihnen sicherlich ein Begriff. Wer hat nicht schon 
einmal eine Gleichung mit zwei Unbekannten (z.B. eine Geradengleichung) gesehen? Allge¬ 
mein kann eine solche Funktion wie folgt ausgedrückt werden: 

y = f(x) 

Rechts steht dann ein beliebiger Ausdruck mit allen möglichen und unmöglichen Rechnungen, 
Sinus-, Logarithmus-Funktionen etc., die alle nur die eine Unbekannte x enthalten. Das Ergeb¬ 
nis eines solchen sogenannten Terms ist dann der Wert, der für y eingesetzt wird. Das Ergebnis 
wird aber davon abhängen, welchen Wert Sie für x einsetzen werden. Man sagt: y ist abhängig 
von X. Ein sehr einfaches Beispiel ist: 

y = X 

In diesem Fall nimmt y grundsätzlich den gleichen Wert an wie x. 

Eine solche Funktion läßt sich sehr schön anschaulich auch grafisch darstellen. Hierzu verwen¬ 
det man ein zweidimensionales Koordinatensystem. Auf der einen Achse zählen wir die y-Werte 
ab, auf der anderen die x-Werte. Das Ergebnis ist dann eine sogenannte Kurve (in dem obigen 
Fall eine Diagonale, die durch den Nullpunkt geht). Aber warum erzähle ich Ihnen das? Das 
wissen Sie ja bereits. 
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Jetzt wird es allerdings interessant: Es gibt nämlich auch Funktionen, die nicht mit den zwei 
üblichen Parametern x und y auskommen. In diesen Funktionen kommt ein dritter Parameter 
z ins Spiel. Solche Funktionen haben dann die Form; 

y = f(x,z) 

Der Funktionswert y hängt also von den zwei Variablen x und z ab (in manchen Büchern wird 
die Form auch mit z = f(x,y) angegeben). Bei der zeichnerischen Darstellung solcher Funktio¬ 
nen kommen wir mit der einfachen zweidimensionalen Zeichentechnik nicht mehr aus. Wir 
führen vielmehr eine z-Achse ein, die uns die Dimension des Raumes eröffnet. Dabei müssen 
wir zwangsläufig auf die 3-D-Formeln zurückgreifen, die wir in den vorherigen Kapiteln ken¬ 
nengelernt haben. 

In der Tat beschränkt sich diese Anwendung nicht nur auf das bloße Vergnügen der Betrachtung. 
Auf diese Weise lassen sich vielmehr recht komplexe Zusammenhänge anschaulich in einem 
Diagramm darstellen, die Sie sonst aus vielen einzelnen Bildern erahnen müßten. Nicht nur 
mathematische Gleichungen nämlich eignen sich für die hier besprochenen Wege, auch ganz 
normale statistische Tabellen sind streng mathematisch Funktionen, die auf diese Weise darge¬ 
stellt werden können. Der einzige Unterschied: Bei Tabellen werden die einzelnen Werte nicht 
berechnet wie bei den Gleichungen. 

Nehmen wir ein Beispiel: Angenommen, es interessieren Sie die jährlichen Umsätze Ihres 
Unternehmens (oder Ihrer Haushaltskasse). Nichts einfacher als das: Sie werden zunächst eine 
Tabelle anfertigen, in der Sie das Jahr und den dazugehörigen Umsatz niederschreiben. Als¬ 
dann folgt die Zeichnung mit den Jahren auf der waagerechten x-Achse, mit den Umsätzen auf 
der senkrechten y-Achse. Jeder y-Wert (Umsatz) ist damit abhängig vom zugehörigen x-Wert 
(Jahr). 

Dreidimensionale Diagramme können gefordert sein, wenn Sie gleichzeitig noch die Umsätze 
Ihres Konkurrenzunternehmens bzw. Ihrer Familienmitglieder aufzeichnen möchten. Sie füh¬ 
ren in diesem Fall die in den Raum hineinreichende z-Achse ein, auf der Sie dann die einzelnen 
zu betrachtenden Parteien auftragen. Auf diese Weise erhalten Sie einen optimalen Überblick 
über die Verhältnisse und können Ihrem Sohn, Ihrer Tochter oder Ihrem Mann rechtzeitig das 
Taschengeld kürzen. 

Doch wenden wir uns wieder dem Hauptproblem zu. In unserem Falle werden wir die Techni¬ 
ken anhand mathematischer Gleichungen (Funktionen) kennenlernen, bei denen die einzelnen 
Funktionswerte errechnet werden. Das erspart uns aufwendige Tabellenerstellungen. 

Den Graphen (oder die Kurve) einer Funktion erhalten wir durch die Erstellung einer sogenann¬ 
ten Wertetabelle. In dieser Tabelle richten wir im Geiste drei Spalten für x-, y- und z-Werte ein. 
In unserem Beispiel werden wir zunächst mit der folgenden Funktion hantieren; 

y = f(x,z) = x^ -I- z^ 

Wie können wir die Berechnung dieser Funktion am effektivsten programmtechnisch realisie¬ 
ren? Hätten wir lediglich eine Funktion mit zwei Unbekannten (etwa y = f(x) = x^) darzustel¬ 
len, wäre das Problem recht einfach zu lösen. Unsere Aufgabe wäre es, einfach in einer 
FOR... NEXT-Schleife den Wert x von einem bestimmten Startpunkt aus bis zu einem Endwert 
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in festen Schritten hochzuzählen. Bei jedem Schleifendurchlauf berechnen wir dann in Abhän¬ 
gigkeit von X den fehlenden y-Wert. Die erhaltenen Wertepaare lassen sich dann sehr einfach 
auf den Bildschirm zeichnen. Das Schema eines solchen 2-D-Funktionsplotters: 

FOR X = <Startwert> TO <Endwert> STEP <Schrittweite> 

y = f(x) 

PLOT x,y 
NEXT X 

Bei dreidimensionalen Funktionen hingegen haben wir zwei Variablen x und z, aus denen die 
dritte y ermittelt werden muß. In diesem Fall helfen wir uns mit zwei ineinander geschachtelten 
FOR.. .NEXT-Schleifen. Die eine zählt die x-Werte, die andere die z-Werte hoch: 

FOR z = <z-Startwert> TO <z-Endwert> STEP < z-Schrlttweite> 

FOR X = <x-Startwert> TO <x-Endwert> STEP <x-Schrittweite> 
y = fCxjz) 

PLOT x,y,z 
NEXT X 
NEXT z 

In diesem Fall haben wir z in der äußeren, x in der inneren Schleife verwandt. Das ist natürlich 
nicht unbedingt notwendig, empfiehlt sich aber oft, wie Sie sehen werden, beim Zeichnen von 
dreidimensionalen Objekten. 

Den Befehl PLOT x,y,z werden Sie kaum in einem Basic-Sprachschatz finden. Einen drei¬ 
dimensionalen Punkt müssen wir schließlich zunächst per Zentralprojektion unter Berücksich¬ 
tigung aller anderen Transformationen auf die Ebene projizieren. Das folgende kleine Basic- 
Programm soll Ihnen das Prinzip verdeutlichen: 

' ** ** 

' ** 3-D-Funktlonen 1 Jtx 
' ** »X 

PI = 3.141593 

SCREEN 2,640,200,2,2 ' Neuer Bildschirm 

WINDOW 4,,(0,0)-(631,186),0,2 ' Neues Fenster 

PALETTE 0, 0, 0, 0 ' Farben setzen 

PALETTE 1, .8, 0,-93 

PALETTE 2,.47,.87, 1 

PALETTE 3, 1, .6,.67 


COLOR 2 
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' Transformationsparameter: 
' Skalierung: 
sx = 40 
sy = 6 
sz = 20 

' Translation: 
tx = 0 
ty = 0 
tz = 0 


' Rotation: 
rx = 15 
ry = -45 
rz = 0 

' Beobachter: 
bx = 0 
by = 0 
bz = -300 


' Ebenentranslatlon: 
tex = 300 
tey = 90 

' Konstanten für die Drehungen: 
rx = rxxPI/180 
ry = ryi^PI/180 
rz = rz*PI/180 

sl.x = SIN(rx) : co.x = COS(rx) 

sl.y = SIN(ry) : co.y = COS(ry) 

sl.z = SIN(rz) : co.z = COS(rz) 

A = co.y ^ co.z 
B = co.y * sl.z 
C = -sl.y 

D = sl.x*sl.y*co.z - co.x»sl.z 
E = sl.x*sl.y»sl.z + co.x»co.z 
F = sl.x»co.y 

G = co.xxsl.yxco.z + sl.xxsl.z 
H = co.xifsl.y*sl.z - sl.x*co.z 
I = eo.x*co.y 
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' Start-/Endwerte/Schrittweiten: 
sta.x = 3 : en.x = -3 : ste.x = -.01 
sta.z =4 : en.z = -3 : ste.z = -.5 

' Funktion: 

DEF FNfun(x,z) = x*x - z*z 


' Zeichnung: 

FOR z=sta.z TO en.z STEP ste.z 
FOR x=sta.x TO en.x STEP ste.x 

' Funktionswert berechnen: 
y = FNfun(x,z) 

' Transformationen: 
xt = sx*x + tx 

yt = syity + ty 

zt = sz*z + tz 

xt = xtitA + yt*B + zt*C ' Rotationen 

yt = xt*D + yt*E + zt*F 

zt = xt*G + ytitH + zX*:l 

' Zentralprojektion: 
zwls = zt - bz 
xe = bx - bz * (xt-bx)/zwls 
ye = by - bz * (yt-bx)/zwis 

' Zeichnen: 

PSET (tex + xe, tey - ye) 

NEXT X 
NEXT z 

WHILE (INKEY$ = "") 

WEND 


' Skalierung 
' und Translation 


WINDOW CLOSE 4 
SCREEN CLOSE 2 
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Bild 5.1: 3-D-Funktionen 1 


Nach dem Öffnen eines neuen Bildschirms mit Fenster, nimmt das Programm einige Initialisie¬ 
rungen vor, die vor allem die verschiedenen Parameter für die Transformationen betreffen. Da 
die Routine in der Lage sein soll, den Graphen der Funktion um alle drei Raumachsen zu dre¬ 
hen, verwenden wir die im letzten Kapitel vorgestellte Gesamt-Rotationsmatrix für Rotationen 
um X-, y- und z-Achsen. Hierzu berechnen wir zuallererst die Rotationsfaktoren A, B, C, D, 
E, F, G, H und I, die über das gesamte Programm hindurch konstant bleiben (wir ersparen uns 
dadurch einige unnötige Berechnungen in den weiter unten liegenden Schleifen). 

Bei diesen Transformationsparametern haben Sie selbstverständlich jeden Spielraum für Ände¬ 
rungen. Die momentan eingestellten Werte bringen eine recht schöne Grafik zu »Papier«. 

Alsdann stellt das Programm die Start- und Endwerte sowie die Schrittweiten für die x- und 
z-Koordinaten ein, die in den folgenden EOR...NEXT-Schleifen hoch-(bzw. ab-)gezählt 
werden. Wenn Sie zunächst einen groben Überblick über das Bild bekommen möchten, dann 
empfiehlt es sich, ste.x (also die x-Schrittweite) um den Faktor von 10 bis 30 zu erhöhen, da 
die Erstellung der Zeichnung normalerweise einige Zeit in Anspruch nimmt. 

Die Struktur der beiden ineinandergeschachtelten EOR...NEXT-Schleifen haben Sie bereits 
kennengelernt. Hier werden die entsprechenden Funktionswerte berechnet, vergrößert, ver¬ 
schoben, gedreht und per Zentralprojektion projiziert, anschließend bei den Ergebniskoordina¬ 
ten ein Punkt gezeichnet. Das Ergebnis haben Sie nach einiger Zeit vor Augen. Ein Tastendruck 
genügt, um das Programm zu beenden. 
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5.1.2 Vernetzung (Crosshatching) 

Noch wird Sie das Produkt unseres Programmes nicht besonders zufriedenstellen, geschweige 
denn beeindrucken. Aber lassen Sie uns etwas Zeit. Durch einen kleinen Trick ist es uns näm¬ 
lich möglich, einen ganz besonders interessanten Effekt zu erreichen. Bisher stellen wir nur 
für bestimmte z-Werte einzelne Kurven dar. Aus der Fachliteratur jedoch kennen Sie vielleicht 
die schönen gebogenen Flächen, die ein Netzmuster ziert, das den räumlichen Eindruck beson¬ 
ders verstärkt. 

Eine solche Vernetzung (Crosshatching) erreichen wir durch das Zeichnen einer um 90 Grad 
um die y-Achse gedrehten Kurvenschar auf das Gebilde von oben. Es handelt sich aber nur 
scheinbar um eine Drehung, denn das Gebilde bleibt in seiner Position eigentlich stehen, 
scheinbar deshalb, da einfach die Schrittweiten für die STEP-Kommandos der z- und x- 
Schleifen ausgetauscht werden. Jetzt stehen die Kurven genau senkrecht zu den zuerst gezeich¬ 
neten. Das Ergebnis läßt sich bereits sehen! 

' ** 

' 3-D-Funktlonen 2 
' 

PI = 3.141593 

SCREEN 2,640,200,2,2 ' Neuer Bildschirm 

WINDOW 4,,(0,0)-(631,186),0,2 ' Neues Fenster 

PALETTE 0, 0, 0, 0 ' Farben setzen 

PALETTE 1, .8, 0,.93 

PALETTE 2,.47,.87, 1 

PALETTE 3, 1, .6,.67 

COLOR 2 

' Transformationsparameter: 

' Skalierung: 
sx = 40 
sy = 6 
sz = 20 

' Translation: 
tx = 0 
ty = 0 
tz = 0 
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' Rotation: 
rx = 15 
ry = -45 
rz = 0 

' Beobachter: 
bx = 0 
by = 0 
bz = -300 


' Ebenentranslation: 
tex = 300 
tey = 90 

' Konstanten für die Drehungen: 
rx = rxxPI/180 
ry = ry»PI/180 
rz = rz»PI/180 

sl.x = SIN(rx) : co.x = COS(rx) 
sl.y = SIN(ry) : co.y = COS(ry) 

sl.z = SIN(rz) : co.z = COS(rz) 

A = co.y * co.z 
B = co.y » sl.z 
C = -sl.y 

D = sl.x»sl.y^tco.z - co.xifsl.z 
E = sl.x»sl.y^tsl.z + co.xÄco.z 
F = sl.x*co.y 

G = co.x*sl.yi^co.z + sl.x*sl.z 
H = co.x*sl.y*si.z - si.x*co.z 
I = co.xifco.y 

' Start-/Endwerte/Schrlttwelten: 
sta.x = 3 : en.x = -3 : ste.x = -.01 

sta.z = 4 : en.z = -3 : ste.z = -.5 

' Funktion: 

DEF FNfun(x,z) = x*x - z^tz 


Zeichnung: 
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FOR za = 1 TO 2 

FOR z=sta.z TO en.z STEP ste.z 
FOR x=sta.x TO en.x STEP ste.x 

' Funktlonswert berechnen: 
y = FNfun(x,z) 

' Transformationen: 
xt = sx*x + tx 

yt = sy*y + ty 

zt = sz*z + tz 

xt = xt*A + yt*B + zt^tC ' Rotationen 

yt = xt*D + ytxE + ztifF 

zt = xt*G + yt»H + zt»I 

' Zentralprojektion: 
zwis = zt - bz 
xe = bx - bz (xt-bx)/zwis 
ye = by - bz * (yt-bx)/zwis 

' Zeichnen: 

PSET (tex + xe, tey - ye) 

NEXT X 
NEXT z 

IF za = 1 THEN ' Bei erstem Durchlauf werden 

zwis = ste.x ' die Schrittweiten ausgetauscht 

ste.x = ste.z 
ste.z = zwis 

COLOR 3 
END IF 

NEXT za 

WHILE (INKEY$ = "") 

WEND 

WINDOW CLOSE 4 
SCREEN CLOSE 2 


' Skalierung 
' und Translation 
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Das Programm hat sich nicht sehr geändert. Lediglich eine alles umrahmende dritte 
FOR.. .NEXT-Schleife ist hinzugekommen. Der Graph wird also insgesamt zweimal auf zwei 
verschiedene Arten gezeichnet. Wenn Sie das Ergebnis immer noch zufriedenstellen sollte, 
dann lesen Sie gleich weiter. 

5.1.3 Die verdeckten Linien 

Bisher sind wir mit unseren Funktionen nicht über den Stand hinausgekommen, den wir bereits 
im letzten Kapitel mit allgemeinen Objekten erreicht hatten. Noch ist der dreidimensionale 
Graph durchsichtig, eigentlich verdeckte Linien sichtbar. Wir werden uns nun ein sehr ein¬ 
faches Verfahren anschauen, diesem Makel ein Ende zu setzen. 

Im täglichen Leben können wir normalerweise nicht durch die Dinge schauen, die wir betrach¬ 
ten, sofern sie nicht aus Glas sind. Wie Sie Jedoch beim Zeichnen unserer Funktion sehen, ist 
dies hier der Fall. Unsere Linien durchdringen sich, obwohl die vorderen, die ja eine Fläche 
abstecken sollen, die hinteren verdecken müßten. 

Wir machen uns dabei zunutze, daß wir die Zeichnung mit hohen z-Werten beginnen (also ganz 
weit weg) und den Graphen sozusagen von hinten nach vorne erstellen. Wir denken uns jeden 
z-Wert als eine Fläche parallel zur x-y-Ebene. Wenn wir nun diese Flächen von hinten nach 
vorne zeichnen, dann verdecken die vorderen stets die hinteren. Im Programm werden wir also 
stets die gesamte Fläche löschen, wodurch dann alle dahinterliegenden Flächen eliminiert 
werden. Wir löschen also vom gerade berechneten und gezeichneten Punkt der Kurve in einer 
senkrechten Linie bis zum unteren Fensterrand. 

So erhalten wir eine Aufsicht auf die grafische Struktur der Funktion. Wenn Sie in das obige 
Programm ein paar Zeilen hinzufügen, wird Ihnen der Effekt deutlich: 
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' ** ** 

' 3-D-Funkt Ionen 3 ** 

' ¥:* ** 

IF FRE(-1)+FRE(0) < 36000& THEN 


END 
END IF 

CLEAR ,36000& 

DIM fenster5?( 14962) 

PI = 3.141593 

SCREEN 2,640,200,2,2 
WINDOW 4,,(0,0)-(631,186),0,2 

PALETTE 0, 0, 0, 0 

PALETTE 1, .8, 0,.93 

PALETTE 2,.47,.87, 1 

PALETTE 3, 1, .6,.67 

COLOR 2 

' Transformationsparameter: 

' Skalierung: 
sx = 40 
sy = 6 
sz = 20 

' Translation: 
tx = 0 
ty = 0 
tz = 0 

' Rotation: 
rx = 15 
ry = -45 
rz = 0 


' 36000 Byte für Amlga-Baslc 
' Speicher für Bildspeicherung 

' Neuer Bildschirm 
' Neues Fenster 

' Farben setzen 
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' Beobachter: 
bx = 0 
by = 0 
bz = -500 


' Ebenentranslation: 
tex = 500 
tey = 90 


' Konstanten für die Drehungen: 


rx 

= rx^tPI/180 


ry 

= ryxPI/180 


rz 

= rz»PI/180 


si. 

X = SIN(rx) : co 

.X = COS(rx) 

si. 

y = SIN(ry) : co 

.y = COS(ry) 

si. 

z = SIN(rz) : co 

.z = COS(rz) 

A = 

co.y * co.z 


B = 

co.y * si.z 


C = 

-sl.y 


D = 

sl.x*si.y*co.z 

- CO.XÄSl.Z 

E = 

sl.xi(si.yifsl.z 

+ co.x^co.z 

F = 

si.x^co.y 


G = 

co.xisl.y^co.z 

+ si.xitsl.z 

H = 

co.x*sl.y*si.z 

- sl.x^tco.z 

I = 

co.xifco.y 



' Start-/Endwerte/Schrlttweiten: 
sta.x = 5 : en.x = -5 : ste.x = -.01 
sta.z = 4 : en.z = -5 : ste.z = -.5 

' Funktion: 

DEF FNfun(x,z) = x»x - z*z 


' Zeichnung: 

FOR za = 1 TO 2 

FOR z=sta.z TO en.z STEP ste.z 
FOR x=sta.x TO en.x STEP ste.x 


' Funktionswert berechnen: 
y = FNfun(x,z) 
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' Transformationen; 
xt = sx*x + tx ' Skalierung 

yt = syity + ty ' und Translation 

zt = sz*z + tz 

xt = xt*A + yt»B + zt»C ' Rotationen 
yt = xt^fD + yt*E + zt*F 
zt = xt*G + yt*H + zt*I 

' Zentralprojektion: 
zwis = zt - bz 
xe = bx - bz * (xt-bx)/zwis 
ye = by - bz * (yt-bx)/zwis 

' Zeichnen: 

PSET (tex + xe, tey - ye) 

LINE (tex+xe,tey-ye+1)-(tex+xe,200),0 

NEXT X 
NEXT z 

IF za = 1 THEN ' Bei erstem Durchlauf werden 

zwis = ste.x ' die Schrittweiten ausgetauscht 

ste.x = ste.z 
ste.z = zwis 

' Fenster Zwischenspeichern: 

GET (0,0)-(631,186),fenstert 
COLOR 3 

CLS ' und löschen 

END IF 

NEXT za 

PUT (0,0),fenstert,OR ' mit zweitem Fenster ORen 

WHILE (INKEY$ = "") 

WEND 

WINDOW CLOSE 4 
SCREEN CLOSE 2 
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Was wird gemacht? Nun, in diesem Programm werden nicht beide Bildteile einfach überein¬ 
andergezeichnet. Vielmehr speichert die Routine den ersten Teil zunächst zwischen. Dazu dient 
der GET-Befehl. Er überträgt den gesamten Fensterinhalt in das Integer-Array fenster%(), das 
zu Programmanfang entsprechend groß gewählt wurde (siehe Amiga-Basic-Handbuch unter 
GET). Dazu mußte allerdings erst genügend Speicher reserviert werden (CLEAR). 

Der erste Teil wird also erstellt, die Punkte unter jedem Punkt mit einem LINE-Befehl gelöscht 
und das Ergebnis dann mittels GET zwischengespeichert. Der Bildschirm leert sich wieder und 
der zweite Teil der Grafik entsteht auf die gleiche Weise. Ist am Ende alles fertig, dann tritt der 
Befehl PUT in Aktion. Er verknüpft die beiden Grafiken per ODER-Funktion zu einer einzigen. 

Was vielleicht noch nicht mit hundertprozentiger Zufriedenheit gelöst wurde, sind die Rand¬ 
bereiche. Man könnte sich wünschen, quasi auch von unten auf die Kurve sehen zu können. 
Dies läßt der hier angewandte Algorithmus allerdings nicht zu. Um dieses Manko auszuglei¬ 
chen, könnte man nun nicht bis zum unteren Bildrand, sondern lediglich zum darunterliegen¬ 
den Punkt der nächsten Linie löschen. Damit wäre das Problem erledigt. Das Zeichnen würde 
mit dieser Methode jedoch um einiges länger dauern und erforderte mehrmaliges Zwischen¬ 
speichern. Vielleicht versuchen Sie einmal, das obige Programm so umzuschreiben. 

Eine Idee zur Optimierung des Löschprozesses: Merken Sie sich jeweils die momentan niedrig¬ 
ste bisher gezeichnete y-Ebenen-Koordinate und löschen Sie nur bis dorthin. 

Einen anderen noch interessanteren Algorithmus zum Löschen verdeckter Linien in 3-D-Funk- 
tionen stellen wir Ihnen im nächsten Abschnitt vor. 
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Es gibt einige schöne Funktionen, die Sie ausprobieren sollten. Versuchen Sie es evtl, mit 
jenen: 

y = x^+z^ 
y = l/(l+x^+z^) 
y = SQR(l-x2/4-z2/9) 
y = 20*SIN(0.1*SQR(x2+z2) 
y = SIN(x)/x+SIN(z)/z 
y = SIN(l/x)/x+SIN(l/z)/z 

5.2 Kleines Intermezzo: 

ein komfortabler Funktionsplotter 

Wir sind jetzt in der Lage, schöne dreidimensionale Funktionen auf dem Bildschirm darzustel¬ 
len. Was uns noch fehlt, ist ein universales Programm, das sich für jede beliebige Funktion eig¬ 
net und die Darstellung vielleicht noch ein wenig verfeinert. Was liegt da näher, als daß Sie sich 
mit dem folgenden Programm beschäftigen, einem weiteren kleinen Höhepunkt dieses Buches. 

Starten Sie es ruhig einmal, und lassen Sie sich berauschen von der einzigartigen Schönheit der 
Amiga-Grafik: 



Bild SA: 3-D-Funktionsplotter 1 
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*******j(***it****^t***if ******** 


'** ** 

'** Der große ** 

'** 3-D-Funktlonsplotter ** 
'** ** 


'**************************** 

Öffnen von Screen und Fenster / Setzen der Farben: 
SCREEN 2,640,200,3,2 

vx% =631 

wy^ = 186+10 

WINDOW 4,,(0,0)-(wxS5,wy^-10),0,2 


PALETTE 0, 
PALETTE 1, 
PALETTE 2, 
PALETTE 3, 
PALETTE 4, 
PALETTE 5, 
PALETTE 6, 


0 , 0 , 0 

.8, 0,.93 

.47,.87, 1 

1,-47,.53 
.4, .6, 1 

1, .6,.67 

.8,. 33 , .4 


'Farbe Hintergrundmuster 
'Farbe Netz 

'Farbe Netzfläche oben 
'Farbe Koordlnatenkreuz 
'Farbe Rahmen vorne 
'Farbe Rahmen Seite 


COLOR 2 


'Das folgende Flag gibt an, ob Sie die 
'verschiedenen Parameter per Input (flag^=0) 

'oder direkt im Programm eingeben möchten (flag^=l): 

flag^ = 1 


'Hier geben Sie die gewünschte 3-D-Funktion 
'f(x,z) ein: 

DEF FNfun(x,z) = 20*SIN(.l*SQR(x*x+z*z)) 
'********************************************* 


'Input-Eingaben: 

'*************** 

LOCATE 1,15 : PRINT "Eingabe der Funktionsparameter:" 
LOCATE 2,15 : PRINT "*******************************" 
LOCATE 4,5 : PRINT "x-Intervall: Start:" 
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LOCATE 

5,24 

PRINT 

"Ende: " 


LOCATE 

6,5 

PRINT 

"y-Intervall: 

Start:" 

LOCATE 

7,24 

PRINT 

"Ende: " 


LOCATE 

8,5 

PRINT 

"z-Intervall: 

Start:" 

LOCATE 

9,24 

PRINT 

"Ende:" 


LOCATE 

11,5 

PRINT 

"Raum-Skalierung: 

x-Faiktor 

LOCATE 

12,23 

PRINT 

"y-Faktor:" 


LOCATE 

13,23 

PRINT 

"z-Faktor:" 


LOCATE 

15,5 

PRINT 

"Raum-Rotation: 

X-Achse: 

LOCATE 

16,23 

PRINT 

"y-Achse:" 


LOCATE 

17,23 

PRINT 

"z-Achse: " 


LOCATE 

19,5 

PRINT 

"Anz. d. ber. x-Punkte:" 

LOCATE 

20,5 

PRINT 

"Netzdichte x-Richtung:" 

LOCATE 

21,5 

PRINT 

" z-Richtung:" 

LOCATE 

22,5 

PRINT 

"Umrahmung 

(j/n) : " 

LOCATE 

23,5 

PRINT 

"Koordinatenkreuz 

(j/n):" 

IF flag^ = 1 THEN 



GOTO 

Start 

'Parameter aus dem Programm 

END IF 





'Eingaben: 




LOCATE 

4,35 

INPUT 

xa 


LOCATE 

5,35 

INPUT 

xb 


LOCATE 

6,35 

INPUT 

ya 


LOCATE 

7,35 

INPUT 

yb 


LOCATE 

8,35 

INPUT 

za 


LOCATE 

9,35 

INPUT 

zb 


LOCATE 

11,35 

INPUT 

sx 


LOCATE 

12,35 

INPUT 

sy 


LOCATE 

13,35 

INPUT 

sz 


LOCATE 

15,35 

INPUT 

rx 


LOCATE 

16,35 

INPUT 

ry 


LOCATE 

17,35 

INPUT 

rz 


LOCATE 

19,35 

INPUT 

rech.gen 


LOCATE 

20,35 

INPUT 

netz.X 


LOCATE 

21,35 

INPUT 

netz.z 


LOCATE 

22,35 

INPUT 

umrahm! 


LOCATE 

23,35 

INPUT 

kreuz! 


' noch 

einige 

Einstellwerte: 


tx=0 : 

ty=0 : 

tz=0 




beo.x = 0 : beo.y = 0 : beo.z = -400 




Verdeckte Linien und Flächen - das Problem und die Lösungen 191 


' Ebenentransformationsparameter: 

tex& = m%/2 'etwa Fenstermittelpunkt 

tey& = wy^/2.5 

sex& = 1 

seySc = 2 

GOTO weiter 


'Alternativ können Sie hier die verschiedenen 


'Parameter auch 

Start: 

direkt ins Programm eingeben: 

xa = -60 

'x-Intervall Start 

xb = 60 

'x-Intervall Ende 

ya = -30 

'y-Intervall Start 

yb = 60 

'y-Intervall Ende 

za = -60 

'z-Intervall Start 

zb = 60 

'z-Intervall Ende 

sx = 3 

'Raum-Skalierung x-Rlchtung 

sy = 3 

'Raum-Skalierung y-Rlchtung 

sz = 3 

'Raum-Skalierung z-Richtung 

tx = 0 

'Raum-Translation x-Richtung 

ty = 0 

'Raum-Translation y-Richtung 

tz = 0 

'Raum-Translation z-Richtung 

rx = 30 

'Raum-Rotation um x-Achse 

ry = -40 

'Raum-Rotation um y-Achse 

rz = 0 

'Raum-Rotation um z-Achse 

beo.x = 0 
beo.y = 0 
beo.z = -400 

'Koordinaten Beobachter 

rech.gen = 30 

'Anzahl der zu berechnenden Punkte 
'pro X-Intervall (Zeile) 

netz.x = 15 

'Netzdichte in Anzahl Linien pro 
'X-Intervall (Zeile) 

'(rech.gen muß ein ganzzahliges Viel- 
' faches von netz.x sein!) 

netz.z = 30 

'Netzdichte in Anzahl Linien pro 
'Z-Intervall 

umrahm$ = "j " 

'Umrahmung ein 

kreuz$ = "j " 

'Koordinatenkreuz ein 


' Ebenentrans formationsparameter: 
tex& = WX5S/1.8 'etwa Fenstermittelpunkt 
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tey& = yj%/3 

sex8c = 1 'Skalierung 

sey& = 2 


weiter: 

PI = 3.141593 

' Punkte-Arrays zum Zwischenspeichern von zwei ganzen Reihen 
DIM merk.x&(rech.gen-l,l), merk.y8e(rech.gen-l,l) 

' Pattern-Speicher: 

DIM feldl^(3), feld2^(3) 

' Bodentiefe: 
boden = ya 

' Konstanten für die Drehung: 
rx = rxxPI/180 'Grad -> Radiant 

ry = ry^(PI/180 
rz = ry*PI/180 

A = C0S(ry)*C0S(rz) 

B = COS(ry)»SIN(rz) 

C = -SIN(ry) 

D = SIN(rx)*SIN(ry)*COS(rz) - COS(rx)*SIN(rz) 

E = SIN(rx)JtSIN(ry)»SIN(rz) + COS(rx)*COS(rz) 

F = SIN(rx)itCOS(ry) 

G = COS(rx)itSIN(ry)^fCOS(rz) + SIN(rx)*SIN(rz) 

H = COS(rx)»SIN(ry)i^SIN(rz) - SIN(rx)xCOS(rz) 

I = C0S(rx)»C0S(ry) 

' Schrittweiten errechnen: 

IF rech.gen < 2 THEN 

PRINT "Rechengenauigkeit zu klein!" : GOTO Stp 
END IF 

ste.z = (zb-za)/(netz.z-l) 
ste.x = (xb-xa)/(rech.gen-l) 

IF ste.z<0 OR ste.x<0 OR ya>yb THEN 
PRINT "Fehler in Intervallangabe!" : GOTO Stp 

END IF 

' Anzahl der Rechenschritte pro senkr. Netzlinie: 
anz.netz^ = INT(rech.gen/netz.x) 
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' Pattern für gesamten Bildschirm definieren: 

feldn(O) = ScHCCCC 

feldl^(l) = &H3333 

feldl^Ü) = &HCCCC 

feldl^Ö) = &H3333 

' und für die Funktion: 
feld2^(0) = &HFFFF '&HAAAA 

feld2^(l) = &HFFFF '&H5555 

feld2^(2) = ScHFFFF ’&HAAAA 

feld2^(3) = ScHFFFF 'ScH5555 

PATTERN ,feldl^ 

LINE (0,0)-(wx^,wy^),1,BF ' Bildschirm mit Muster füllen 

PATTERN ,feld2!? ' Zweites Muster einstellen 

POKE WIND0W(8)+27,2 ' Farbe des Area-OUTLINE-Pen 

flags = WIND0W(8)+32 

POKEW flags,PEEK(flags) OR 8 ' AreaOutllne-Flag setzen 

r.akt^ = 0 ' Nummer des aktuellen Relhen-Arrays 

r.last^ = 1 ' Nummer des letzten Reihen-Arrays 


' Zeichenroutine: 

' Koordinatenkreuz einzeichnen: 

IF kreuz! = "j " THEN 

IF za<0 AND zb>0 AND xa<0 AND xb>0 AND ya<0 AND yb>0 THEN 
COLOR 4 

x=xa*1.3:y=0:z=0:GOSUB transform:PSET (xl8c,yl&) 
x=xb*1.3:y=0:z=0:G0SUB transform:LINE -(xl8c,yl8c) 
x=0:y=ya*1.3:z=0:GOSUB transform:PSET (xl8c,yl&) 
x=0:y=yb*1.3:z=0:G0SUB transform:LINE -(xl8c,ylSc) 
x=0:y=0:z=zaJ^1.3:GOSUB transform:PSET (xl8e,ylSt) 
x=0:y=0:z=zb*1.3;GOSUB transform:LINE -(xl8c,yl8c) 

END IF 
END IF 

FOR z=zb TO za STEP -ste.z 

zwls^ = r.akt/S ' Reihen-Array-Nummern tauschen 

r.akt^ = r.lastjS 
r.last^ = zwls^ 



194 Verdeckte Linien und Flächen - das Problem und die Lösungen 


n.zaehl^ = -1 ' Zähler für Vernetzung 

r.zaehlj? = 0 ' Zähler für Reihen-Array 

COLOR 3 

FOR x=xa TO xb STEP ste.x 

'Funktlonswert berechnen: 
y = FNfun(x,z) 

GOSUB transform ' Koordinaten transformieren 

GOSUB zeichne ' evt. Feld zeichnen/Koord. merken etc. 

NEXT X 

IF zOzb AND umrahm$="j" T 

rette = z ' z retten 

COLOR 6 

' Rechte/linke Seitenwand zeichnen: 

FOR selte^ = 1 TO 2 

IF selte^ = 1 THEN ' Linke Seitenwand 
' Sichtbar? 

IF merk.x&(0,r.last^) >= merk.x8t(0,r.aktS5) THEN skip 
xvu = xa : zvu = z : yvu = boden 

xhu = xa : zhu = z+ste.z : yhu = boden 

xho = xa : zho = zhu : yho = FNfun(xho,zho) 

xvo = xa : zvo = zvu : yvo = FNfun(xvo,zvo) 

ELSE ' Rechte Seltenwand 

' Sichtbar? 

IF merk.x&(r.zaehl^-l,r.last%) <= merk.x&(r.zaehl^-l,r.akt^) 
THEN skip 

xvu = x-ste.x : zvu = z : yvu = boden 

xhu = xvu : zhu = z+ste.z : yhu = boden 

xho = xvu : zho = zhu : yho = FNfun(xho,zho) 

xvo = xvu : zvo = zvu : yvo = FNfun(xvo,zvo) 

END IF 

' Punkt vorne unten: 

X = xvu : y = yvu : z = zvu 
GOSUB transform 

IF yl& >= wyS? THEN yl8c = wy?-l 
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hold.xSc = xl& : hold.y& = yl& 

GOSUB makearea 
' Punkt hinten unten: 

X = xhu : y = yhu : z = zhu 
GOSUB transform 

IF yl& >= vy% THEN yl& = wy^-1 
GOSUB makearea 
' Punkt hinten oben: 

X = xho : y = yho : z = zho 
GOSUB transform 
GOSUB makearea 
' Punkt vorne oben: 

X = xvo : y = yvo : z = zvo 
GOSUB transform 
GOSUB makearea 

AREAFILL 0 ' füllen 

Skip: 

NEXT seitens 
z = rette 
END IF 

NEXT z 


' Vordere Wand zeichnen: 

IF umrahm! = "j " TUEN 

zwls^ = r.akt^ ' Relhen-Array-Nummern tauschen 

r.akt? = r.last^ 
r.last^ = zwls^ 

n.zaehl^ = -1 ' Zähler für Vernetzung 

r.zaehl^ = 0 ' Zähler für Reihen-Array 

COLOR 5 

FOR x=xa TO xb STEP ste.x 
y = boden 

GOSUB transform ' Koordinaten transformieren 

IF x+ste.x >= xb THEN xl&=hold.x& : yl&=hold.y& 

IF yl& >= wy? THEN yl& = wy^-1 

GOSUB zeichne ' evt. Feld zeichnen/Koord. merken etc. 
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NEXT X 
END IF 


Stp: 

WHILE (INKEY$="") ' Auf Taste warten 

WEND 

WINDOW CLOSE 4 
SCREEN CLOSE 2 

END 


' Koordinaten im Array merken und 
' evtl. Fläche zeichnen: 
zeichne: 

'Ins Array speichern: 
merk.x&(r.zaehl^, r.akt^) = xl& 
merk.y&(r.zaehl^, r.akt?) = yl& 

n.zaehliS = n.zaehl^ + 1 
' Ein Netz-Kästchen einzeichnen: 

IF n.zaehl^=anz.netz^ AND z<>zb AND y>=ya AND y<=yb THEN 
n.zaehl^ = 0 ' Zähler rücksetzen 

' Area-Polynom Initialisieren: 

FOR Ind = r.zaehl^-anz.netz^ TO r.zaehW 
xl& = merk.x&(ind,r.akt^) 
yl& = merk.y&(ind,r.akt^) 

GOSUB makearea 
NEXT Ind 

FOR ind = r.zaehl^ TO r.zaehl^-anz.netz^ STEP -1 
xl& = merk. x8c( Ind, r.last^) 
yl& = merk.y&(ind,r.last^) 

GOSUB makearea 
NEXT ind 

AREAFILL 0 ' Polynom ausfüllen 

END IF 

r.zaehl^ = r.zaehl^ + 1 ' nächster Punkt 

RETURN 



Verdeckte Linien und Flächen - das Problem und die Lösungen 197 


' Trans formstionsroutIne; 

' transformiert 3-D-Koord. ln x, y, z 
' nach 2-D-Koord. in xl&, yl8c 


transform: 

'Transformationen durchführen: 

xtl = sxxx + tx ' Skalierung und Translation 

ytl = sy*y + ty 
ztl = SZifZ + tz 


xt2 = xtl*A + ytl»B + ztl*C ' Rotationen 
yt2 = xtl*D + ytl*E + ztl*? 
zt2 = xtl*G + ytl*H + ztl*I 


'Zentralproj ektion: 
zwis = zt2 - beo.z 

xl8c = beo.x - beo.z * (xt2-beo.x)/zwls 
yl& = beo.y - beo.z * (yt2-beo.y)/zwis 


'Ebenentranslation: 
xl& = tex& + xl&/sex& 
yl& = teySe - yl&/sey& 
RETURN 


'Minl-Clipping und Area-Aufruf mit xl&, yl&: 
makearea: 

' Minl-Cllpplng: 

IF xl&>=0 AND xl&<wx^ AND yl&>=0 AND yl&<wy^ THEN 
AREA(xl&,yl8e) 

END IF 
RETURN 


Sagenhaft! werden Sie sagen, und mit Recht, doch gehen wir gleich in medias res. Dieses Pro¬ 
gramm zeichnet in der Form, wie Sie es hier sehen, eine ganz bestimmte Funktion in einer ganz 
bestimmten Art und Weise. Das liegt u .a. an der Variablen flag %. Hier wurde sie auf 1 gesetzt. 
Dieses Flag gibt nämlich an, ob Sie die vielen veränderbaren Parameter in dem Programm per 
INPUT nach jedem Starten des Prograiiuns neu eingeben wollen (flag % = 0), oder ob die Para¬ 
meter verwendet werden sollen, die direkt im Programm stehen (flag% = 1). Das Flag wurde 
eingeführt, damit Sie sich beim Testen Ihrer eigenen Funktion mit Ihren eigenen Parametern 
einige Arbeit sparen können. Es wäre schließlich ziemlich umständlich, bei jedem Testlauf 
noch einmal sämtliche Parameter neu eingeben zu müssen, obwohl Sie vielleicht nur einen ein¬ 
zigen ändern möchten. 
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Bild 5.5: 3-D-Funktionsplotter 2 


Ganz zu Anfang steht per DEF-Befehl die Definition der 3-D-Funktion, die Sie zeichnen 
möchten. Beachten Sie, daß sich nicht unbedingt jede Funktion dazu eignet, auf dem Bild¬ 
schirm dargestellt zu werden. Bei Funktionen mit vielen Definitionslücken können eine Reihe 
von Problemen auftauchen. Wird z.B. im Laufe der Berechnungen der Nenner einmal gleich 
Null, so taucht natürlich die Fehlermeldung DIVISION BY ZERO auf. Negative Wurzeln oder 
zu große Werte bringen das Programm ebenfalls zum Stehen. Wählen Sie also die Werteinter¬ 
valle entsprechend. 

Möchten Sie nun aber unbedingt solche Funktionen ebenfalls an den Undefinierten Stellen dar¬ 
stellen, so gibt es einen Trick: Entweder, Sie installieren eine entsprechende ON ERROR- 
Routine (Vorsicht! Die Funktion wird an mehreren Stellen im Programm berechnet) oder Sie 
nutzen die folgende Eigenschaft von Amiga-Basic aus: Geben Sie im Direktmodus ein: 

PRINT 4=4;7 ";4=2 

Die Ausgabe: -1/0 

Sie haben damit das Ergebnis eines logischen Vergleiches ausgegeben. Jeder logischen Opera¬ 
tion weist Amiga-Basic nämlich einen Wert zu, mit dem man auch rechnen kann. Ist ein Aus¬ 
druck logisch wahr, erhält er den Wert -1, ist er falsch, ist das Ergebnis 0. Solche Vergleiche 
(auch mit » > «, » < «, » < > « etc.) dürfen Sie dann selbstverständlich in Ihre Funktionen mit 
einbauen. 

Die Funktion f(x)=sin(x)/x beispielsweise ist an der Stelle x=0 nicht definiert. Damit das Pro¬ 
gramm diese Stelle jedoch ebenfalls errechnen kann, schreiben Sie: 


fix) = sin(x)/(x-(x=0)) 
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Sobald X gleich Null wird, bekommt der Ausdruck (x=0) den Wert -1, der von x (also von 0) 
subtrahiert wird. Das Ergebnis für x=0: f(0)=sin(0)/(0-(-l)). Der Nenner wird gleich 1. Der 
resultierende Punkt ist zwar eigentlich kein gültiger Punkt der Kurve, das fallt aber bei 
geschicktem Einsatz nicht sonderlich auf. 

Bei Wurzeln sollten Sie statt dessen vielleicht mit der Funktion ABS() arbeiten: 
f(x)=SQR(ABS(x)) liefert niemals ungültige Werte. 

Kommen wir zu den vielen Parametern, die Sie ändern dürfen: 


xa 

xb 

ya 

yb 

za 

zb 

sx 

sy 

sz 

tx 

ty 

tz 

rx 

ry 

rz 

beo.x 
beo.y 
beo.z 
rech, gen 
netz.x 

netz.z 

umrahmS 

kreuz$ 

tex& 

tey& 

sex& 

sey& 


x-Raumkoordinate des x-Intervallstartes 
x-Raumkoordiante des x-Intervallendes 
y-Raumkoordinate des y-Intervallstartes 
y-Raumkoordiante des y-Intervallendes 
z-Raumkoordinate des z-Intervallstartes 
z-Raumkoordiante des z-Intervallendes 
Raum-Skalierung der Funktion in x-Richtung 
Raum-Skalierung der Funktion in y-Richtung 
Raum-Skalierung der Funktion in z-Richtung 
Raum-Translation in x-Richtung 
Raum-Translation in y-Richtung 
Raum-Translation in z-Richtung 
Raum-Rotation um die x-Achse 
Raum-Rotation um die y-Achse 
Raum-Rotation um die z-Achse 
x-Koordinate des Beobachters 
y-Koordinate des Beobachters 
z-Koordinate des Beobachters 

Anzahl der zu berechnenden Punkte pro x-Intervall (Zeile) 
x-Netzdichte (Anzahl der Netzlinien pro x-Intervall; rech.gen muß stets ein 
ganzzahliges Vielfaches von netz.x sein!) 

z-Netzdichte (Anzahl der Netzlinien pro z-Intervall; gleichzeitig Anzahl der zu 
berechnenden Punkte pro z-Intervall) 

Flag für Umrahmung ein/aus 
Flag für Koordinatensystem ein/aus 

Ebenentranslation in x-Richtung (x-Position der Grafik im Fenster) 
Ebenentranslation in y-Richtung (y-Position der Grafik im Fenster) 
Ebenenskalierung in x-Richtung (x-Koord. mal l/sex&) 

Ebenenskalierung in y-Richtung (y-Koord. mal l/sey&) 


Aus Platzgründen können Sie nicht alle davon auch per INPUT eingeben. Sie sehen, da können 
Sie schon einiges ändern. Am besten. Sie probieren einfach ein wenig herum. Auf diese Weise 
werden Sie mit den Auswirkungen jedes einzelnen Parameters am besten vertraut. Im übrigen 
sollten Ihnen einige bereits bekannt Vorkommen (z. B. die Transformationsparameter). Wichtig 
ist, daß Sie die Intervall-Parameter so eingeben, daß gilt: ya < yb, xa < xb und za < zb. Ein Tip: 
yb sollten Sie möglichst groß wählen. Vermeiden Sie Winkel größer 45 oder kleiner -45 Grad 
(lieber Werte nahe bei Null wählen). 
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Zu Programmanfang öffnet die Routine erst einmal einen ganz neuen Bildschirm mit einem 
inliegenden Fenster. Der Screen wird mit drei Farbebenen eingerichtet. Es sind also maximal 
acht verschiedene Farben gleichzeitig verfügbar. In unserem Programm werden wir allerdings 
nur sieben benötigen, die gleich im Anschluß mit PALETTE definiert sind. Dann geht es los 
mit der Eingabe der Parameter. 

Das eigentliche Programm beginnt allerdings erst hinter dem Sprunglabel »weiter:«. Hier wer¬ 
den einige wichtige Dinge initialisiert. So z.B. zwei Arrays, die uns über das gesamte Pro¬ 
gramm begleiten werden (merk.x&(,) und merk.y&(,)) . Sie enthalten die gesamten Koordina¬ 
ten von insgesamt zwei zu berechnenden z-Reihen der Funktion (s.u). Ferner errechnet das Pro¬ 
gramm die STEP-Werte für die weiter unten stehenden EOR.. .NEXT-Schleifen (ste.x und ste.z) 
aus den x- bzw. z-Intervallen und der angegebenen Rechengenauigkeit. Die Rechengenauigkeit 
rech.gen gibt an, wieviele Einzelpunkte in jeder y-z-Ebene berechnet werden sollen, die dann 
mit Linien verbunden werden, um einen zusammenhängenden Kurvenverlauf zu erzeugen. Die 
Variable netz.z enthält die gleiche Information für die x-y-Ebenen. netz.x dagegen gibt an, wie¬ 
viele Netzlinien pro x-Intervall die waagerechten Netzlinien kreuzen sollen. anz.netz% 
bestimmt dann die Anzahl der zu berechnenden Punkte zwischen zwei Netzlinien. Aber das 
sollten Sie am besten selbst ausprobieren. 

Als nächstes folgt das Koordinatenkreuz: Sechs Punkte werden berechnet, transformiert und 
projiziert (durch das Unterprogramm »transform«), drei Linien werden gezeichnet. 

Dann erkennen Sie die beiden ineinanderverschachtelten EOR...NEXT-Schleifen, die Sie 
bereits in den Programmen der vorherigen Kapitel finden. Hier sind sie natürlich ein wenig 
umfangreicher. Das Prinzip aber bleibt. 

Spätestens jetzt sollten wir uns einmal damit auseinandersetzen, wie in diesem Programm das 
Problem der verdeckten Linien gelöst wird. Das geschieht hier nämlich auf eine etwas andere 
Art und Weise, als wir das bisher kennengelernt haben. 

Das Programm zeichnet nämlich nicht jeden errechneten Punkt der Punktion sofort auf den 
Bildschirm. Vielmehr werden die x- und y-Werte jedes Punktes einer x-Reihe in den oben 
erwähnten Arrays merk.x&(n,r) und merk.y&(n,r) abgelegt, n gibt dabei die Position des 
Punktes innerhalb einer Reihe an. r ist entweder 0 oder 1. Es werden nämlich stets zwei hinter¬ 
einanderliegende x-Reihen in den Arrays gespeichert. Das hat einen bestimmten Grund. Es 
werden nicht einfache Linien von jedem Punkt nach unten gezogen. Vielmehr werden die 
Punkte in x- und auch in z-Richtung durch Linien miteinander verbunden (Vernetzung). Die 
Fläche, die von diesen Linien eingegrenzt wird (Netzflächen) füllt das Programm mit einer 
Farbe. Dadurch übermalt es alles, was jemals dahinter gezeichnet wurde. Das Bild wird also 
quasi Mosaikstein für Mosaikstein zusammengesetzt. Probleme kann das nur bei starken Dre¬ 
hungen rx, ry und rz in manchen Funktionen geben. 

Nachdem also ein Funktionswert in der x-Schleife berechnet wurde, wird dieser Punkt in dem 
Unterprogramm »transform« auf altbekannte Weise transformiert und projiziert. Die fertigen 
Ebenenkoordinaten stehen dann in xl& und yl& und werden dem Unterprogramm »zeichne« 
übergeben, das sie in die beiden besagten Arrays ablegt. Jetzt entscheidet es sich, ob tatsächlich 
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gezeichnet werden soll; Beim ersten z-Schleifendurchlauf (z=zb) ist noch kein Array voll. 
Generell erst beim zweiten z-Durchlauf kann also gezeichnet werden. Sollen pro senkrechter 
Netzlinie noch mehrere Punkte errechnet werden, wird das Zeichnen ebenfalls so lange über¬ 
sprungen, bis eine Netzlinie erreicht ist. 

Jetzt ist es soweit; Eine Fläche soll eingezeichnet werden. Dazu verwenden wir den Befehl 
AREA bzw. AREAFILL, die ein beliebiges Polygon ausfüllen. Das Programm übergibt jeden 
Eckpunkt der Fläche - gewonnen aus den Arrays merk.x&(,) und merk.y(,) - dem Befehl 
AREA. Das sind mindestens vier Punkte, können aber je nach Rechengenauigkeit und Netz¬ 
linienzahl auch sechs, acht, zehn etc. sein. 

Ist eine Linie abgearbeitet, so kann - je nach Flag umrahmS und je nach Perspektive - noch 
eine rechte oder linke Seitenwand (ebenfalls mit AREAFILL) gezeichnet werden. Danach wer¬ 
den die Punkte der vorletzten Reihe nicht mehr benötigt. Sie werden nun durch die Punkte der 
nächsten Reihe überschrieben, bis das Ende der z-Schleife erreicht ist. 

Haben Sie umrahm$= "j" gewählt, gehört zu den Seitenwänden natürlich noch eine vordere 
Wand. Sie zeichnet das Programm auf die gleiche Weise wie beschrieben. Das Bild ist fertig, 
das Programm erwartet Ihren Tastendruck, schließt dann Screen und Fenster und kehrt zurück 
in Ihre Workbench. 

An dem Programm werden Sie sicherlich Ihren Spaß haben. Testen Sie doch einmal andere 
Funktionen mit anderen Parametern. Ein Tip; Verschaffen Sie sich erst einmal durch großzü¬ 
gige Intervallangaben einen Überblick über Ihre Funktion, und grenzen Sie dann den interesr 
santen Bereich ein. Wählen Sie zunächst kleine Drehwinkel, kleine Skalierungen und einen 
sehr entfernten Beobachter (beo.z=-4(X)0). Schalten Sie die Umrahmung zunächst aus. Haben 
Sie die interessanten Teile gefunden, dann setzen Sie für weitere Verfeinerungen (aus 
Geschwindigkeitsgründen) die Rechengenauigkeit zunächst auf kleine Werte. 


5.3 Verdeckte Linien und Flächen in objektorganisierten 
Welten 

Was sich hinter diesem hochtrabenden Titel verbirgt, ist gar nicht so kompliziert, wie es sich 
anhört. In den letzten Kapiteln wurden Ihnen Möglichkeiten und Techniken demonstriert, mit 
denen Sie auf einfachste Weise und ohne viele komplizierte Berechnungen in dreidimensiona¬ 
len Funktionsgraphen verdeckte Linien und Flächen realisieren können. Die gleiche Intention 
haben Sie allerdings sicherlich auch bei einfachen Objekten wie dem Haus aus dem letzten 
Kapitel etc. und genau das werden Sie hier finden. 

Nun ist das Problem der sogenannten »Hidden Lines and Surfaces« eines der schwierigsten in 
der Computergrafik überhaupt. Es existieren eine ganze Reihe verschiedener Algorithmen, die 
entweder schnell sind oder möglichst viele Fälle von Objekt- und Flächenzusammenstellungen 
berücksichtigen. Beides gleichzeitig ist wohl kaum zu realisieren. Je mehr Fälle zu berücksich¬ 
tigen sind, um so komplizierter und dementsprechend zeitaufwendiger werden die Routinen zur 
Flächenunterdrückung. 
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Da Sie später ein Verfahren kennenlernen werden, das hundertprozentig alle Eventualitäten 
erfaßt (das Ray-Tracing), aber auch entsprechend langsam ist, soll an dieser Stelle mehr Wert 
auf Geschwindigkeit gelegt werden. Wir schränken uns damit zwar in der Wahl der Objekte 
und Flächen ein, erhalten dafür aber eine Technik, die sogar noch unter Real-Time recht brauch¬ 
bare Ergebnisse erzielt. 

Unser hier vorgestelltes Verfahren unterteilt sich in zwei Schritte: 

- Flächenrückenunterdrückung 

- Tiefensortierung 

Der erste Schritt bezieht sich stets auf Flächen innerhalb eines Objektes. Der zweite bearbeitet 
Flächen, die entweder ebenfalls in einem Objekt liegen können, die aber auch in unterschiedli¬ 
chen Objekten Vorkommen können. Damit versuchen wir also zunächst, so viele Flächen irmer- 
halb jedes Objektes zu verdecken wie möglich. Im zweiten Schritt werden dann noch nicht 
erfaßte verdeckte Flächen innerhalb eines Objektes berücksichtigt und die Verdeckung von ver¬ 
schiedenen Objekten untereinander festgestellt. 

In jedem Fall jedoch müssen Sie unser Modell von Objekten, Linien und Punkten erweitern. 
Jede einzelne Fläche eines Objektes muß erfaßt werden. Eine Fläche wird definiert durch die 
sie begrenzenden Linien, die ihrerseits durch Start- und Endpunkte festgelegt sind. Ein Objekt 
wiederum kann dann aus verschiedenen Flächen bestehen. 

a) Die FlächenrückenunterdrUckung 

Nehmen wir ein sehr einfaches Beispiel eines Körpers, einen Quader (s. Bild 5.6). Dieser 
Quader besitzt sechs Flächen, von denen stets nur drei tatsächlich sichtbar sind. Wichtig 
zu bemerken ist, daß eine Fläche in diesem Fall entweder vollständig oder gar nicht sichtbar 
ist, denn nur solche Flächen findet der Algorithmus. Welche drei Flächen das sind, das 
hängt von der jeweiligen Perspektive ab. Wie aber ist es möglich, herauszufinden, welche 
Flächen sichtbar sind und welche nicht? 



Bild 5.6: Flächenmodell eines Würfels 
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Das ist eigentlich gar nicht so schwer. Wir brauchen lediglich darauf zu achten, daß die Eck¬ 
punkte (oder die Grenzlinien) einer Fläche im Uhrzeigersinn numeriert sind. Schauen Sie 
sich also jede einzelne Fläche von vorne an und numerieren die Seiten entsprechend 
(s. Bild). Sollte später eine Seite vom Beobachter abgewandt sein, dann erschiene die Fläche 
in entgegengesetzter Numerierung auf dem Bildschirm. Genau das ist dann das Kriterium 
dafür, daß die Fläche unsichtbar ist. 

Jede Fläche besitzt also quasi eine sichtbare und eine unsichtbare Seite (fast so wie ein halb¬ 
durchlässiger Spiegel). Wir stellen einfach fest, welche dieser beiden Seiten uns zu- und wel¬ 
che uns abgewandt liegt. 

Beschreiten wir den mathematischen Weg! Wir suchen also die Richtung, in die die sichtbare 
Seite einer Fläche zeigt. Ein auf der Fläche senkrechter Vektor zeigt logischerweise genau 
in diese Richtung (s. Bild 5.7). 



Bild 5.7: Vektorprodukt einer Fläche 


Mathematisch ist dieser Vektor recht einfach zu berechnen, indem von zwei linear unabhän¬ 
gigen Vektoren der Fläche das Vektorprodukt gebildet wird (lineare Unabhängigkeit und 
Vektorprodukt haben Sie bereits kennengelernt, s. auch Anhang). Die linear unabhängigen 
Vektoren der Fläche sind sofort gefunden. Suchen Sie sich einfach irgendeinen Eckpunkt 
Pi(Pix.Piy>Piz) der Fläche aus und bilden den Vektor zum nächstbesten Eckpunkt 
P 2 (P 2 x,P 2 y>P 2 z) “ Vcktor Nummcr eins. Vektor Nummer zwei erhalten Sie, indem Sie einen 
zweiten Vektor vom gleichen Ursprungspunkt Pi zum übernächsten Eckpunkt 
P 3 (p 3 x,p 3 y,p 3 z) ziehen. Das funktioniert immer, falls die drei Eckpunkte nicht auf einer 
Linie liegen (dann wären die beiden Vektoren nicht mehr linear unabhängig). 
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Bild 5B: Ermittlung linear unabhängiger Vektoren einer Fläche 


Nennen wir die beiden Vektoren v und w mit: 

( P2x-Plx\ 

P2y-Ply 
P2z-Plz / 

( P3x-Plx\ 

P3y-Ply 
P3z-Plz / 

Um nun den dazu senkrechten Vektor p zu berechnen, ist das Vektorprodukt »v kreuz w« 
(nicht zu verwechseln mit dem Skalarprodukt) zu ermitteln: 



/ Vx \ j 

f Wx\ 

p = vxw = 

1 ''y 1 ^ 

Wy 


\ Vz / 

Wz/ 


/ Vj,*Wz - 

Vz*Wy 

= 

Vz»Wx - 

Vx*Wz 


\ Vx*Wy - 

Vy*Wx 


Falls dieser Richtungsvektor p von uns (als Betrachter) wegzeigt, dann ist die Fläche sicht¬ 
bar, zeigt er auf uns, dann schauen wir auf die unsichtbare Seite. Um nun auch mathematisch 
zu ermitteln, in welche Richtung der Vektor zeigt, benötigen wir einen weiteren Vektor und 
das sogenannte Skalarprodukt beider Vektoren. 

Bei dem zweiten Vektor, den wir s nennen wollen, handelt es sich um den Sichtvektor, der 
vom Beobachter zum jeweiligen zu projizierenden Punkt zeigen soll (s. Bild 5.9). 
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Bild 55: Sichtbarkeitsuntersuchung mittels Sicht- und Flächenrichtungsvektor 


Für s gilt; 

( Sx \ / Pix-beox \ 

Sy I = I Piy-beoy I 

Sz / \ Piz-beo^ / 

mit: 

beOx,beOy,beOx: Koordinaten des Beobachters 

Pix> Ply, Piz^ Koordinaten des Fußpunktes Pi von v und w 

Zeigen also Sichtvektor s und Flächenrichtungsvektor p in etwa die gleiche Richtung, dann 
ist die Fläche sichtbar, andernfalls nicht. Um ein mathematisches Kriterium für diese Sicht¬ 
barkeit in der Hand zu haben, untersucht der Algorithmus den Winkel a zwischen den beiden 
Vektoren. Gilt für a; -90 < a < 90, dann zeigen beide Vektoren etwa in die gleiche Richtung, 
die Fläche ist sichtbar. Gilt dagegen: a> = 90 oder a< = -90, dann tritt der andere Fall 
in Kraft. Den Winkel zwischen zwei Vektoren berechnet man aber leicht durch das soge¬ 
nannte Skalarprodukt q, das bekanntlich eine normale Zahl ergibt (keinen Vektor wie das 
Vektorprodukt): 

q = s*p = lsl*lpl*cos(a) 

= Sx*Px + Sy»py -b Sz*p^ 

Ist a im Bereich -90 Grad bis -t-90 Grad, dann ist der Cosinus cos(a) positiv, im anderen 
Fall wird er gleich Null (a = 90 oder a = -90) oder negativ (s. Bild 5.10). 


Normalenvektor ^ 


Normalenvektor 

[ * 



a>90 => coe(a)<0 

a< 90 

= > cat(a) > 0 


Bild 5.10: Sichtbar oder nicht sichtbar - eine Frage des Winkels 
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Da die beiden Faktoren Isl und Ipl (Absolut) inuner positiv sind, interessiert eigentlich nur 
das Vorzeichen des gesamten Skalarproduktes q. Wir brauchen also gar nicht umständlich 
mit Winkeln und Winkelfunktionen herunazurechnen, sondern benutzen lediglich die 
Parametergleichung des Skalarproduktes q = sx*px + sy*py +sz»pz, was natürlich viel 
einfacher zu berechnen ist. Wir unterscheiden also folgende zwei Fälle: 

Fall 1: q>0 => Die Fläche ist sichtbar 

Fall 2: q = 0 => Die Fläche ist unsichtbar 


Der Algorithmus ist wie folgt zusammenzufassen: 

1. Jedes Objekt hat eine Flächenliste mit im Uhrzeigersinn durchnumerierten Kanten 

2. Jede Fläche wird der Sichtbarkeitsüberprüfung unterzogen 

3. Ermittlung zweier linear unabhängiger Vektoren v und w der zu untersuchenden Fläche 
durch die Auswahl dreier aufeinanderfolgender Punkte Pi, Pj, P 3 

4. Berechnung des senkrechten Vektors p durch das Vektorprodukt p=vxw 

5. Berechnung des Sichtvektors s aus der Verbindung Beobachter -> Pi 

6. Ermittlung der Richtung der Vektoren s und p zueinander durch Bestimmung des Vor¬ 
zeichens des Skalarproduktes q der beiden Vektoren 

7. Falls q>0: Fläche als sichtbar kennzeichnen 

Falls q =0: Fläche als unsichtbar kennzeichnen 

Dieser Algorithmus versagt bei Flächen, die zwar dem Beobachter zugewandt sind, von 
anderen Flächen desselben Objektes oder anderer Objekte allerdings verdeckt werden. Soll 
allein dieser Algorithmus Verwendung finden, dann müssen Sie sich auf ein Objekt 



Bild 5.11: Konvexe und konkave Objekte 


beschränken (oder die Objekte so anordnen, daß sie sich in keinem Fall überschneiden). 
Ferner muß das Objekt konvex sein (alle Innenwinkel sind kleiner 180 Grad). Ein konkaves 
Objekt hätte Einbuchtungen, die von anderen Flächen überdeckt sein könnten. 
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b) Tiefensortierung 

Um diesen Mißstand zu beseitigen, behelfen wir uns einer Technik, die auch als Painters 
Algorithm (Algorithmus der Maler) weithin bekannt ist. In der Malerei nämlich wird diese 
Technik oft verwandt, um das Problem der verdeckten Flächen, das ja auch dort existiert, 
zu lösen. Dabei beginnt der Maler mit dem weit entfernten Hintergrund. Dann erst malt er 
die etwas näher liegenden Objekte ein. Dabei werden zwangsläufig Teile des Hintergrundes 
wieder überpinselt, bis er endlich zu den ganz nahen Figuren etc. kommt, die wiederum 
alles Dahinterliegende überdecken können. 

In der Computertechnik geht das ganz analog: Erst werden die hinteren Objekte und Flächen 
gezeichnet, dann die vorderen, die die hinteren teilweise oder ganz wieder verdecken kön¬ 
nen. Die Technik eignet sich natürlich nur für Videos, wie ihn unser Amiga und die meisten 
Computer besitzen. Für Plotter beispielsweise, bei denen ja nicht einfach etwas überpinselt 
werden kann, werden sogenannte Hidden-Line-Algorithmen verwendet, die erst alle ver¬ 
deckten Linien und Linienteile eliminieren und dann zeichnen. 

Eigentlich ist das alles nichts Neues, denn genau das haben Sie ja bereits bei 3-D-Funktionen 
kennengelernt. Dort allerdings war es ein gehöriges Stück einfacher, herauszufinden, 
welche Eläche hinten und welche vorne lag. Wir fingen einfach bei hohen z-Koordinaten an 
zu zeichnen. 

Bei normalen Elächen im Objektmodell allerdings müssen wir erst umständlich ermitteln, 
welche Elächen oder Flächenteile vor anderen Flächen liegen. Dabei kann es sogar Vorkom¬ 
men, daß ein Teil einer Fläche vor und ein Teil hinter einer anderen Fläche zu liegen kommt 
oder daß sich zwei Flächen durchdringen (s. Bild 5.12). 



Bild 5.12: Zyklische Überlappung, Durchdringung und wechselnde Überlappung zweier Polygone 


Ein Tiefensortieralgorithmus kann beliebig kompliziert werden, je mehr Fälle er zu berück¬ 
sichtigen hat. Dabei muß er eventuell sogar einzelne Flächen teilen, um eindeutige Prioritä¬ 
ten herzustellen etc. 
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Verwendet werden bei dieser Technik selbstverständlich nur noch diejenigen Flächen, die 
der oben beschriebene Algorithmus als sichtbare Flächen übriggelassen hat, denn die dort 
als unsichtbar ermittelten Flächen sind ja in jedem Fall unsichtbar. Damit verringert sich 
die Anzahl der zu bearbeitenden Flächen natürlich erheblich (oft um die Hälfte). 

Beim Tiefensortieralgorithmus wird für jede Fläche geprüft, ob es eine oder mehrere wei¬ 
tere Flächen gibt, die sie überlappen könnten. Dabei wird der Programmierer bemüht sein, 
erst mit einfachen Mitteln so viele Flächen wie möglich auszuschließen, damit er die kom¬ 
plizierteren Methoden möglichst spät an möglichst wenigen Flächen praktizieren muß. 

Allgemein wird versucht, eine Prioritätenliste von Flächen zu erstellen, die angibt, in wel¬ 
cher Reihenfolge sie zu zeichnen sind. Hierzu existiert eine recht anschauliche Technik, die 
die folgenden Schritte vollzieht. Vorausgesetzt ist dabei stets, daß der Beobachter entlang 
der z-Achse schaut. Anderenfalls muß das durch entsprechende Translationen und Rotatio¬ 
nen zunächst erreicht werden (ähnlich der Rotation um eine beliebige Raumachse): 


1, Von allen Flächen wird der Eckpunkt ermittelt, der die höchste z-Koordinate Zmax (am 
weitesten entfernt) und derjenige, der die niedrigste z-Koordinate Zmm besitzt (am näch¬ 
sten am Beobachter). 

2, Alle Flächen werden zunächst nach fällendem z^ax vorsortiert. An erster Stelle steht 
dann die Fläche mit dem höchsten z^ax- Wir nennen sie F], F 2 ,... Fn 

3, Jetzt muß die erste Fläche Fi mit allen anderen Flächen Fi (also: F 2 bis Fn) verglichen 
werden: 

a) Falls der nächstliegende Punkt von F| (Fijmm) weiter entfernt liegt, als der am 
weitesten entfernte Punkt der zweiten Fläche F 2 (F 2 j-max). also: 

Fu.min = Fzzniax 

dann kann kein Teil von Fi einen Teil von F 2 oder einer anderen Fläche F| der 
Liste überdecken. F, kann also an der ersten Stelle der Liste bleiben. 

b) Falls jedoch gilt: 

Fizmin Flzmax 

dann ist es möglich, daß Fi nicht nur F 2 , sondern sogar alle anderen Flächen Fj 
verdeckt. Um das herauszufinden, werden eine Reihe von Tests durchgeführt. 
Dabei beginnt man mit den einfachsten und schnellsten Tests. Es muß dabei F 1 
mit jeder anderen Fläche F, getestet werden: 

- Untersuchung der einschließenden Rechtecke zweier Flächen Fl undF,: Projiziert 
man die beiden Flächen ganz normal aufdie Ebene, dann kann man ein einschließen¬ 
des Rechteck für jede Fläche finden, indem man einfach die niedrigsten und die 
höchsten x- bzw. y-Koordinaten der Eckpunkte ermittelt (s. Bild 5.13). Überlappen 
sich die einschließenden Rechtecke zweier Flächen nicht, dann können sich auch die 
Flächen selbst nicht überlappen. Dann geht es weiter mit der nächsten Fläche in der 
Liste. Überlappen sie sich doch, dann kommt der nächste Test: 
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Bild 5.13: Einschließendes Rechteck bei Polygonen 


- Liegen alle Eckpunkte der Fläche F| hinter der von der zweiten Fläche F, aufge¬ 
spannten Ebene? Dazu verwenden wir wieder den bereits im obigen Algorithmus 
berechneten senkrechten Vektor p auf die jeweilige Ebene Fj. Dieser Vektor zeigt 
ja inzwischen bei allen übriggebliebenen Flächen in die gleiche Richtung wie der 
Beobachtervektor (s.o.). Er zeigt also in die Ferne (s. Bild 5.14). Ein Vektor von 
einem beliebigen Eckpunkt der Fläche F, zu dem zu untersuchenden Eckpunkt 
von Fl (nennen wir ihn f) zeigt genau dann in die gleiche Richtung wie p, wenn 
der Eckpunkt von Fi hinter der Fläche Fi liegt. Liegt er vor ihr, dann zeigt er in 
entgegengesetzte Richtung. Liegt f dagegen senkrecht auf p, dann liegt der Eck¬ 
punkt von F] auf der Ebene (nicht unbedingt Fläche!), die von Fj aufgespannt 
wird. 

Die Richtungsbeziehung ermitteln wir wie beim obigen Flächentest mit dem Ska¬ 
larprodukt f*p, von dem nur das Vorzeichen interessiert. 



Bild 5.14: Test zur Polygonüberlappung 
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Alle Eckpunkte von F| werden auf diese Weise getestet. Liegen sie alle hinter der 
jeweiligen Fläche Fj, dann geht es weiter mit der nächsten Fläche Fj+|. 

Ist das jedoch nicht der Fall, dann wird der nächste Test durchgeführt; 

- Im Prinzip ist das der gleiche Test wie der vorige. Jetzt wird lediglich getestet, ob 
alle Eckpunkte der Fläche F, vor der von Fi aufgespannten Ebene liegen. 

Ist das der Fall, dann kann Fj weiter an erster Position in der Tabelle bleiben und 
die nächste Fläche Fj+i wird überprüft. 

- Der letzte Test, der sehr aufwendig werden kann, erfragt, ob Fi von einer Fläche 
Fj überlappt wird. Hier müssen Schnittpunkte errechnet werden etc. 

Wie gesagt, wird jede Fläche F, bezüglich F| diesen Tests unterzogen. Übersteht F| alle 
Prüfungen, dann bleibt sie endgültig an erster Stelle in der Liste (oder wird direkt gezeich¬ 
net). Die Rolle von F| übernimmt dann die nächste Fläche F 2 usw. 

Sollte F| jedoch einen einzigen Test nicht überstehen, dann wird es mit derjenigen Fläche 
getauscht, bei der der Test nicht funktionierte. Mit dieser neuen obersten Fläche wird dann 
die gesamte Prozedur von Anfang an wiederholt. 

Gleichzeitig muß die ehemalige Position dieser Fläche gespeichert werden. Sollte es näm¬ 
lich dazu kommen, daß derselbe Tausch noch einmal vorgenommen wird, dann liegt z.B. 
eine zyklische Überlappung vor, die nur durch Flächenteilung gelöst werden kann. 

Reichlich kompliziert, werden Sie sagen. Da muß ich Ihnen leider zustimmen. Es handelt sich 
hierbei aber noch um einen relativ einfachen Algorithmus. 

Wollten wir alle Schritte dieser Technik programmieren, dann wäre Schluß mit unserem Bestre¬ 
ben, Real-Time-Bewegungen vorzunehmen. Lassen wir also den ganzen Perfektionismus bei¬ 
seite und begnügen uns mit einem verlockend einfachen Kriterium der Tiefensortierung, das 
jedoch eine ganze Menge Fälle berücksichtigt: 

Ermittelt wird einfach ein mittlerer z-Wert jeder Fläche. Dazu addieren wir die z-Werte aller 
Eckpunkte der Fläche und teilen das Ergebnis durch die Anzahl der Eckpunkte - eine einfache 
Mittelwertsberechnung! Exakt ist das Ergebnis natürlich nur für Flächen, die parallel zur x-y- 
Ebene verlaufen. Je weiter eine Fläche in den Raum hineinragt, desto größer ist die Gefahr, daß 
Fehler auftauchen, Sie werden allerdings sehen: Gepaart mit der Sichtbarkeitsuntersuchung 
bringt diese Technik bereits verblüffende Ergebnisse (ganz besonders später bei den sogenann¬ 
ten Rotationskörpern, auf die Sie sich bereits jetzt schon freuen dürfen!). 

Haben wir die Flächen nach diesem Kriterium nach ihrer mittleren z-Koordinate sortiert, ist 
es uns ein leichtes, sie nacheinander auf den Bildschirm zu zeichnen. Die später gezeichneten 
Flächen überdecken dann eventuell die vorherigen. Das folgende Basic-Programm wird Ihnen 
die ganze Technik veranschaulichen: 
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'X* XX 

'XX Verdeckte Linien und Flächen xx 

'XX XX 

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PI = 3.141593 

'Einen neuen Bildschirm mit Fenster öffnen: 
anz.färben^ = 16 
SCREEN 2,640,200,4,2 
vx% =631 

wy% = 186 

WINDOW 2,"Verdeckte Linien und Flächen",(0,0)-(wx^,wy^),4+8,2 

blauf = 0 'Blaufaktor 
gruenf = 0 'Grünfaktor 
rotf = 1 'Rotfaktor 

blauadd = .1 'Blau-Zusatz 
gruenadd = .1 'Grün-Zusatz 
rotadd = 0 'Rot-Zusatz 

'Farben belegen: 

FOR 1=2 TO anz.farben^-l 

färbe = INT(1x100/15 + .5)/100 
rot = farbexrotf+rotadd 
gruen = farbexgruenf+gruenadd 
blau = farbexblauf+blauadd 
IF rot>l THEN rot=l 
IF gruen >1 THEN gruen=l 
IF blau>l THEN blau=l 

PALETTE i,rot,gruen,blau 
NEXT 1 

PALETTE 0,0,0,0 'Hintergrund: schwarz 
PALETTE 1,1,.8,.13 'Rahmenfarbe 


' Start-Transformationsparameter: 
' Skalierung: 
sx = 2 
sy = 2 
sz = 2 
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' Translation: 
tx = 5 
ty = 5 
tz = 5 


' Rotation: 
rx = -20 
ry = 20 
rz = 0 

' Beobachter: 
bx = 0 
by = 0 
bz = 150 

' Lichtquelle: 

Iq.xSc = -900 
lq.y& = 1000 
lq.z& = -500 

' Llchtintensltät/Flächenlntensltät: 
11.Int = .7 
fl.Int = 1 
hin.Int = .3 

' Ebenentranslatlon: 
tex = 300 
tey = 90 

' Ebenenskallerung: 

Sex = 2 
sey = 1 

' Umrechnung der Drehwinkel ln RAD: 
rx = rx*PI/180 
ry = ry»PI/180 
rz = rz*PI/180 

'Drehinkrementwert (Grad): 
dlg = 10 


di = PI X dlg/180 


'Umrechnung nach RAD 


'Beobachterinkrementwert: 
binc = 20 
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POKE WIND0W(8)+27,1 'Farbe des Area-Outllne-Pen 

flags = WINDOW(8)+32 

POKEW flags,PEEKW(flags) OR 8 'Area-Outline-Flag setzen 


'Objekt-Daten ln Arrays einiesen und 
'folgende Arrays definieren: 

'XT%{), yr^O, zr^O — Koordinaten der Raumpunkte 
— Transformierte Koordinaten 
— Flächendefinitionen 
— zu zeichnende Flächen 
— Anzahl der Ecken jeder def. Fläche 
— Anzahl der Ecken jeder zu 
zeichnenden Fläche 
— Sortierte Indizes der Flächen 
— Array gemittelter z-Werte der Flächen 
— Farbintensitäten aller zu 
zeichnender Flächen 


'xe(),ye(),ze() 

'anzeckd^O 

'anzeckz^O 

f 

'sort.f^O 
'mlt.zO 
' farben() 


get.Objects 


'Hauptschleife: 


flag^=0 

WHILE flag?Ol 


transform 

verdecke 

Projektion 


'Alle Punkte transformieren 
'Verdeckte Flächen ausfiltern 
' (und Farben ermitteln) 

'Alle Punkte projizieren 


CLS 


'Fenster löschen 


PATTERN ScHFFFF 'Linienmuster = durchgezogen 


'Objekt zeichnen: 

FOR 1=0 TO afz?-l 'Alle Flächen 

flaech.nr? = sort.f?(i) 'zu zeichnende Flächennr. 

FOR k=0 TO anzeckz?(flaech.nr?)-l 'Alle Eckpunkte der Fläche 
punkt.nr? = flz?(flaech.nr?,k) 'Punktnummer 
x% = tex + sex»xe(punkt.nr?) 'Punktkoordinaten 

y? = tey - sey^tye(punkt.nr?) 
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IF x^<0 THEN x% = 0 
IF yi%>=\rx.% THEN x% = wx^-1 
IF y%<0 THEN y% = 0 
IF y%>=vy% THEN y% = vy%-l 

AREA {x%,y%) 

NEXT k 

COLOR INT(farbe(flaech.nr^)^(l4)+2 'Farbwert einstellen 
AREAFILL 0 'Fläche zeichnen 

NEXT i 

maus!? = 0 ; flag^=0 

WHILE mausjSol AND flag?=0 

SLEEP 'Auf Ereignis warten 

'Mauskoordinaten als neue Nullpunkt- 
'Koordinaten übernehmen: 
maus;?=M0USE(0) 

IF maus?=l THEN 
tex = M0USE(3) 
tey = M0USE(4) 

END IF 

ch^ = ASC(INKEY$+CHR$(0)) 

IF ch;?=31 THEN 'Cursor links => 

ry=ry+di 'y-Achsendrehwlnkel erhöhen 

flag% = -1 'Flag für Neuzeichnen 
END IF 

IF ch^=30 THEN 'Cursor rechts => 
ry=ry-dl ’y-Achsendrehwinkel erniedrigen 

flag^ = -1 'Flag für Neuzeichnen 

END IF 

IF ch^=28 THEN 'Cursor hoch => 

rx=rx+di 'x-Achsendrehwinkel erhöhen 

flag? = -1 'Flag für Neuzeichnen 

END IF 

IF ch!?=29 THEN 'Cursor runter => 

rx=rx-dl 'x-Achsendrehwinkel erniedrigen 

flag? = -1 'Flag für Neuzeichnen 

END IF 

IF ch;?=127 THEN 'Del => Flächenbegrenzungen ein/aus 
POKEW flags,PEEKW(flags) XOR 8 
flag% = -1 
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END IF 

IF ch^=43 THEN '+ => Skalierung auf 
sx = sx+1 
sy = sy+1 
sz = sz+1 
flag? = -1 

END IF 

IF ch^=45 THEN => Skalierung ab 
sx = sx-1 
sy = sy-1 
sz = sz-1 
flag^ = -1 

END IF 

IF ch!5=56 THEN '8 => Beobachter entfernen 
bz = bz-binc 
flag^ = -1 

END IF 

IF ch^=50 THEN '2 => Beobachter annähern 
bz = bz+binc 
flag% = -1 

END IF 

IF ch^=139 THEN 'Help => Rotation = 0 
rx = 0 
ry = 0 
rz = 0 
flag^ = -1 

END IF 

IF ch^=8 THEN 'Backstep => Farbwechsel 
'Farbparameter rotieren: 
zwis = rotf 
rotf = gruenf 
gruenf = blauf 
blauf = zwis 
zwis = rotadd 
rotadd = gruenadd 
gruenadd = blauadd 
blauadd = zwis 

'Farben belegen: 

FOR 1=2 TO anz.farben?-l 

färbe = INT(i*100/15 + .5)/100 
rot = farbe*rotf+rotadd 
gruen = farbe*gruenf+gruenadd 
blau = farbe^blauf+blauadd 
IF rot>l THEN rot=l 
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IF gruen>l THEN gruen=l 
IF blau>l THEN blau=l 

PALETTE i,rot,gruen,blau 
NEXT 1 
END IF 

'Falls Fenster geschlossen -> Ende 
IF WIND0W(7)=0 THEN 
flag%=l 
END IF 

WEND 

WEND 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 

END 


'Objektdaten einiesen: 

SUB get.Objects STATIC 

'Punktekoordinaten einiesen: 

SHARED ap^ 

READ ap^ 'Anzahl Punkte 

DIM SHARED xr?S(ap55-l) ,yr^(ap^-l) ,zr^(ap^-l) 
DIM SHARED xe(ap^-l) ,ye(ap^-l) ,ze(ap5?-l) 

FOR i=0 TO ap^-l 

READ xr!?(l) ,yr^(l) ,zr^(l) 

NEXT 1 


'Flächendefinitionen einiesen: 
SHARED afd%, a.fz% 


READ afd^ 
afz^ = afd^ 
READ eckenmax^ 


'Anzahl definierte Flächen 
'Anzahl zu zeichnende Flächen 
'Max. Anzahl von Ecken einer Fläche 
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DIM SHARED fld??(afd5?-l,eckeniiiax^-l) ,flz^(afz^-l,eckenmax%-l) 

DIM SHARED anzeckd5?(afd^-l) ,anzeckz^(afz?-l) 

DIM SHARED sort.f^(afz^-l),mit.z(afz^-l) 

DIM SHARED färbe(afz^-1) 

FOR i=0 TO afd^-1 

READ anzeckd^(i) 'Anzahl Ecken dieser Fläche 
FOR k=0 TO anzeckd^(i)-l 
READ fld%(l,k) 

NEXT k 
NEXT i 

END SUB 

'Transformation aller Raum-Punkte: 

SUB transform STATIC 
SHARED ap^ 

SHARED sx,sy,sz,tx,ty,tz,rx,ry,rz 

'Konstanten für die Drehung berechnen: 
si.x = SIN(rx) : co.x = COS(rx) 
sl.y = SIN(ry) : co.y = COS(ry) 

si.z = SIN(rz) : co.z = COS(rz) 

A = co.y * co.z 

B = co.y X si.z 

C = -si.y 

D = sl.x^tsi.y*co.z - co.x*si.z 

E = si.x*si.y»si.z + co.x*co.z 

F = si.xjtco.y 

G = co.xxsi.yi^co.z + si.x*si.z 

H = co.xi^si.y^tsi.z - si.x»co.z 

J = co.xi^co.y 

FOR i=0 TO ap^-1 
' Transformationen: 

xt = sx*xr^(i) + tx 'Skalierung 

yt = sy*yr^(i) + ty 'und Translation 

zt = sz*zr^(i) + tz 

xe(i) = xtitA + yt^fB + zt^tC 'Rotationen 
ye(i) = xt^tD + yt*E + zt*F 
ze(i) = xt*G + yt*H + zt*J 
NEXT i 


END SUB 
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'Projektion aller Raum-Koordinaten in die Ebene: 
SUB Projektion STATIC 
SHARED ap% 

SHARED bx,by,bz 

FOR i=0 TO ap5?-l 

' Zentralprojektion: 
zwis = ze(i) - bz 
xe(i) = bx - bz * (xe(i)-bx)/zwis 
ye(i) = by - bz * (ye(i)-by)/zwis 
NEXT i 
END SUB 


'Ausfiltern aller verdeckten Flächen 
'und Sortieren der mittleren z-Werte: 

SUB verdecke STATIC 
SHARED afd^, afz^ 

SHARED bx,by,bz 

afz^ = 0 'Anzahl zu zeichnender Flächen 


FOR 1=0 TO atd%-l 


'Phase 1: Flächenrückenuntersuchung: 


'Zwei (hoffentlich) linear unabhängige 
'Vektoren der Fläche ermitteln: 

'V = P2-P1 // w = P3-P1: 

'mit: P1,P2,P3 = Eckpunkte der Fläche 


Pl^ = fld5?(l,0) 

P2^ = fld^(i,l) 

P3^ = fld^(l,2) 

P1.X& = xe(Pl^) 

Pl.y& = ye(Pl^) 

P1.Z& = ze(Pl^) 

V.X& = xe(P2^) - P1.X& 

v. y& = ye(P2^) - Pl.y& 

V. Z& = ze{P2%) - P1.Z& 

w. x8c = xe(P3^) - P1.X& 
w.y& = ye(P3^) - Pl.y& 

W. Z& = ze(P3^) - P1.Z& 
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'Vektorprodukt p = 
p.x& = v.y8c»w.z8e - 
p.y& = v.z&»w.x& - 
p.z& = v.x8d*w.y& - 


V X w ermitteln: 
v.z&tiw.ySc 
v.x&*w. z8c 
V.y8e^6W.x8c 


'Sichtvektor s vom Beobachter zu PI berechnen: 
S.X& = P1.X& - bx 
s.y& = Pl.y& - by 
S.Z& = P1.Z& - bz 


'Skalarprodukt q = p * s berechnen: 
q& = p.x&*s.x& + p.y&its.y8c + p.z8t*s.z& 


'Vorzeichen von q testen: 
IF q8c>0 THEN 


'Fläche als sichtbar kennzeichnen: 
anzeckz^(afz^) = anzeckd^(l) 


sum.z = 0 

FOR k=0 TO anzeckd^(i)-l 

flz^(afz^,k) = fld^(l,k) 'Flächendef. übertragen 
sum.z = ze(fld^(l,k)) + sum.z 'z-Summe bilden 
NEXT k 


GOSUB färbe 


'Farbwert der Fläche errechnen 


'Phase 2: z-Mittelwert einsortieren: 

'z-Mlttelwert ln z-Array speichern: 
mittel = sum.z / (anzeckz^(afz5S)-1) 
mit.z(afz^) = mittel 

'Nach Z-Mittelwert den Flächenindex in Sort-Array einordnen: 
k = 0 

'Einsortierstelle suchen: 

WHILE (mittel <= mit.z{sort.f^(k)) AND k < afz^) 
k=k+l 
WEND 

IF k <= afz^ THEN 

'Ab Einsortierstelle verschieben: 

FOR m=afz^ TO k STEP -1 
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sort.f^(m+l) = sort.f?(m) 

NEXT m 
END IF 

sort.f^(k) = afz% 'Index der Fläche merken 
atz% = afz%+\ 'Anzahl sichtbare Flächen erhöhen 

END IF 

NEXT i 'Nächste Fläche 

EXIT SUB 

'Flächen-FarbIntensitäten errechnen: 
färbe: 

SHARED Iq.xSc, lq.y&, lq.z& 

SHARED 11.int, fl.Int, hin.int 

' Vektor vom Flächenpunkt zur Lichtquelle: 

L.X& = Pl.xSt - lq.x& 

L.y& = Pl.ySc - Iq.ySc 
L.z8c = P1.Z& - Iq.zSc 

' Intensität des einfallendes Lichtes: 

cos.a = (p.x&itp.x& + p.y&*p.y& + p.z&*p.z&) 

cos.a = cos.a * (L.x8c»L.x& + L.y&^(L.y& + L.z&*L.z&) 

cos.a = (p.x&*L.x& + p.y8:»L.y& + p.z&*L.z&)/SQR( cos.a) 

färb = hln.lnt*fl.int 'Hintergrundintensität 

IF cos.a < 0 THEN 'Fläche dem Licht zugewandt? 

färb = färb - li.lnt*fl.int * cos.a ' JA! Lichteinfall 
END IF ' ermitteln 

farbe(afz^) = färb - INT(farb) 'nur zwischen 0 und 1! 

RETURN 

END SUB 

'Objektdaten: 

'3-D-Punktkoordlnaten: 

'Anzahl der Punkte: 

DATA 10 



Verdeckte Linien und Flächen - das Problem und die Lösungen 221 


'Obj ektpunkte: 
DATA 0, 0, 0, 

6, 

o 

o 

6,10, 0 

DATA 

0,10, 0, 

3, 

15, 0, 

3,15,15 

DATA 

6,10,15, 

6, 

0,15, 

0, 0,15 

DATA 

0,10,15 





'Flächendefinitionen: 

'Anzahl der Flächen: 
DATA 9 


'Maximale Anzahl an Ecken einer Fläche: 

DATA 4 

'Anzahl der Ecken + Eckpunktnummern der Flächen: 

DATA 4, 3, 0, 1, 2 

DATA 4, 2, 1 , 7, 6 

DATA 4, 6, 7, 8, 9 

DATA 4, 9, 8, 0, 3 

DATA 4, 0, 8, 7, 1 

DATA 4, 4, 2, 6, 5 

DATA 4, 5, 9, 3, 4 

DATA 3, 3, 2, 4 

DATA 3, 6, 9, 5 


Recht lang ist das Programm, und trotzdem sollte Ihnen einiges bereits bekannt Vorkommen. 
Viele Dinge kennen Sie nämlich bereits aus den anderen Kapiteln: Skalierungen, Translationen, 
Rotationen, Zentralprojektion und und und... Also scheuen Sie sich nicht, das Programm ein¬ 
mal genauer anzuschauen, es lohnt sich in jedem Fall! 


Sobald Sie das Programm starten, erscheint - wie gewohnt - ein neuer Screen auf dem Monitor. 
Nicht nur das, nach kurzer Zeit sehen Sie... jawohl, das altbekannte Haus, diesmal ein wenig 
perfektioniert. Lassen Sie uns kurz - bevor Sie sich mit den Innereien des Programmes vertraut 
machen - an die Bedienung denken. Sie sind natürlich wieder einmal in der Lage, das Haus 
(oder jedes beliebige andere Objekt) per Tastendruck zu verändern. Folgende Tasten stehen 
Ihnen zur Verfügung: 


< Maustaste li. > 

< Cursor links > 

< Cursor rechts > 

< Cursor auf> 

< Cursor ab > 
<Del> 

< + > 


Positionierung des Objektes 
Drehwinkel um die y-Achse erhöhen 
Drehwinkel um die y-Achse erniedrigen 
Drehwinkel um die x-Achse erhöhen 
Drehwinkel um die x-Achse erniedrigen 
Flächenumrahmung ein/aus 
Objekt vergrößern 
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<-> 

<8> 

<2> 


<Help> 

< Backstep > 

< Close-Gadget > 


Objekt verkleinern 
Beobachter entfernen 
Beobachter annähern 
alle Rotationswinkel = 0 
Farbwechsel 
Programm beenden 


Lassen Sie uns keine Zeit verlieren, steigen wir direkt in das Programm ein: 


Am Anfang stehen natürlich wie immer die gewohnten Initialisierungen. Dabei wurde ein 
wenig mehr Aufwand bei der Farbgebung getrieben. Das Objekt soll nämlich später per Tasten¬ 
druck in den Farben Rot, Grün oder Blau (evenmell mit jeweils anderen Farbzusätzen) erschei¬ 
nen. Jede Farbe existiert in 16 Schattierungen (von 0 bis 15). Die 14 hellsten Intensitäten werden 
in 14 Palettenregistern gespeichert, so daß sie jederzeit zur Verfügung stehen. Die unteren zwei 
Register sind für die Rahmen- und Hintergrundfarben reserviert. Den zugehörigen Screen hat 
das Programm deshalb natürlich mit vier Farbebenen (16 Farben) eingerichtet. 


Die beschriebene Farbinitialisierung findet in der ersten FOR.. .NEXT-Schleife des Program¬ 
mes statt. Lassen Sie sich von der komplizierten Formel dort nicht irritieren. Hier werden ein¬ 
fach die Farbintensitätswerte 0-15 in die Werte zwischen null und eins (mit Rundung) umge¬ 
rechnet, die das Amiga-Basic in seinem Palettenbefehl benötigt. Anschließend rechnet das Pro¬ 
gramm diese Intensitäten für jede der drei Grundfarben aus. Hier können Sie nach Belieben 
und Gefallen Änderungen vornehmen, falls die gewählten Farben nicht ganz Ihrem ästhetischen 
Empfinden entsprechen. 


Die nächsten Schritte sollten Ihnen bekannt Vorkommen. Hier werden Startwerte für die Skalie¬ 
rung, Translation, Rotation, für die Beobachterposition, die Ebenentranslation und -Skalierung 
sowie einige Inkrementwerte zur tastenmäßigen Änderung dieser Parameter vorgewählt. Auch 
hier sollte Ihr Betätigungsfeld bei der »Erforschung« dieses Programmes sein, hier können Sie 
im wahrsten Sinne des Wortes schalten und walten. 


Bevor wir endlich zum Kern der Sache vorstoßen, noch ein Hinweis auf eine interessante Pas¬ 
sage in diesem Programm: 

POKE WIND0W(8)-1-27,1 

flags = WIND0W( 8) 4-32 

POKEW flags,PEEKW(flags) OR 8 

Mit dem ersten POKE setzen wir die Earbe des sogenannten OUTLINE-Pens auf Palettenregi¬ 
ster 1 (C-Freunden ist vielleicht die Funktion SetOPen() (die eigentlich gar keine Funktion 
ist) ein Begriff). Dieser »Farbstift« wird von manchen Grafikfunktionen des Betriebssystems 
verwendet (z.B. von den Area-Befehlen), um beispielsweise Umrahmungen von Flächen zu 
zeichnen. Um diesen Funktionen mitzuteilen, daß sie ab sofort solche Rahmen zeichnen sollen, 
wird mit dem zweiten POKE das Area-OUTLINE-Elag gesetzt. Im Laufe des Programmes 
werden Sie eine zweite Stelle finden, an der dieses Flag als Reaktion auf einen Tastendruck 
(Del) wieder gelöscht wird. Jede Fläche wird von Stund an ohne Rahmen gezeichnet. Wir 
können uns dazu nicht der Funktion SetOPen() bedienen, da diese nur ein C-Makro darstellt 
und gar nicht im Befehlssatz des Betriebssystems vorhanden ist. 
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Aber jetzt endlich zum Wesentlichen! Eingeleitet wird die ganze Operation durch einen Sprung 
zur Routine get.objects. Wie Sie dem Kommentar im Programm entnehmen, werden hier zahl¬ 
reiche Arrays eingerichtet, Daten aus DATA-Zeilen gelesen usf. Die Routine selbst sollte nicht 
allzu schwer zu verstehen sein. Allein die Funktion der Arrays muß eingehender untersucht 
werden. Die folgenden dort initialisierten Felder haben zentrale Bedeutung im ganzen Pro¬ 
gramm: 


xr%( ),yr%( ),zr%() 
xe( ),ye( ),ze() 
fld%(,) 
anzeck %() 
ftz%(,) 
anzeckz%() 
sort.f%() 
mit.z%() 
farbe() 


Raumkoordinaten aller Punkte 

Rechenarrays für Punktkoordinaten später: Ebenenkoordinaten 

alle definierten Flächen bestehend aus den Eckpunktnummern 

Anzahl der Ecken aller definierten Flächen 

später: alle zu zeichnenden(!) Flächen 

Anzahl der Ecken aller zu zeichnenden Flächen 

Nurmnern der sortierten Flächen 

Sortierte mittlere Tiefen 

Farbintensitätswerte aller Flächen 


Diese teilweise erst später verwendeten Arrays enthalten alle Informationen, die das Programm 
benötigt, um alle gewünschten Objekte in der richtigen Art und Weise zu zeichnen. Wir werden 
sie im Laufe der Erläuterungen noch näher kennenlernen. 

Wie Sie vielleicht bereits bemerkt haben, ist in diesem Programm ganz auf irgendwelche 
Liniendefinitionen verzichtet worden. Kein Wunder, wir haben es schließlich auch mit Flächen 
zu tun. Ein Objekt besteht also aus einer Vielzahl von Flächen. Jede Fläche wiederum besteht 
aus mehreren (mindestens drei) Eckpunkten, die in ganz genau bezeichneter Reihenfolge, im 
Uhrzeigersinn (Sie erinnern sich an den Hidden-Surface-Algorithmus!) aufgelistet sind. Jede 
Flächendefinition besteht also aus einer Zahl, die die Anzahl der Eckpunkte angibt 
(anzeck%()) und einem Array von Eckpunkten. Um ein Objekt zu kreieren, müssen wir also 
zunächst einmal alle Eckpunkte sammeln und in dem Punktearray bereitstellen, dann sämtliche 
Flächen dieses Objektes numerieren und Fläche für Fläche, Eckpunkt für Eckpunkt auflisten. 

Aber kehren wir doch zurück ins Flauptprogramm, das dort umgehend mit der großen Haupt¬ 
schleife fortfährt. Sie wird erst dann beendet, wenn Sie das Ausgabefenster per CLOSE-Gadget 
schließen. Ohne große Umschweife ruft man hier drei große Routinen auf, die alle räumlichen 
Daten aufbereiten und zur Zeichnung fertigstellen: 

transform Transformation aller Raumpunkte 

verdecke Erkennen aller zu zeichnenden Flächen und Tiefensortierung (sowie Farb- 

berechnung) 

Projektion Umrechnung in ebene Punktkoordinaten 

Beginnen wir bei der ersten. Hier findet nun nichts Spannendes mehr statt. Genau diese Routine 
sollten Sie bereits aus anderen Programmen kennen. Rotation, Translation und Skalierung aller 
Raumpunkte gehören zu ihren Aufgaben. 

Hochinteressant geht es dagegen in der Routine »verdecke« zu; das ist unser Thema! Zur Einlei¬ 
tung der Flächenrückenuntersuchung wählt das Programm erst einmal zwei linear unabhängige 
Vektoren der Ebene aus. Das setzt allerdings voraus, daß Sie die Daten Ihrer Fläche korrekt 
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eingegeben haben. Sollten nämlich drei Eckpunkte (ausgerechnet die drei Punkte, die für die 
Rechnung herangezogen werden) auf einer Linie liegen, dann wird es haarig. Dann kann es 
nämlich Vorkommen, daß die beiden ausgesuchten Vektoren eben nicht linear unabhängig sind. 
Das Ergebnis: recht ordentliches Chaos. 

Ausgewählt werden der Vektor v vom ersten (PI) zum zweiten Eckpunkt (P2) und der Vektor 
w vom ersten zum dritten (P3). Ein Vektor berechnet sich bekanntlich aus der Differenz 
zweier Punktvektoren. Entsprechendes wird in der Routine ermittelt. 

Im Anschluß daran muß gemäß Algorithmus der senkrechte Vektor auf die Fläche durch das 
Vektorprodukt p = vxw bestimmt werden, dann der Sichtvektor s vom Beobachter zum Punkt 
PI und dann das Skalarprodukt q = p»s. Jetzt sind wir dort, wo wir hin wollten. Jetzt können 
wir das Vorzeichen von q testen. Ist es negativ oder Null, dann ist die Fläche nicht sichtbar (die 
nächste Fläche kann untersucht werden), ist es dagegen positiv, dann können wir sie in das 
Array speichern, das alle zu zeichnenden Flächen enthält: flz%(,). Das Eckenzahl-Array 
anzeckz%( ) darf selbstverständlich nicht vergessen werden. Damit wäre die Realisierung des 
Flächenrückenalgorithmus bereits vollendet! 

Als nächstes treffen Sie mit dem Unterprogrammaufruf »färben« auf ein kleines Intermezzo, 
das strukturell eigentlich gar nicht hierhin gehört. Da wir aber in Amiga-Basic ein wenig Wert 
auf Programmausführungszeiten legen müssen, können Sie vielleicht noch einmal ein Auge 
zudrücken. Es geht um die Farbgebung. Natürlich ist es sehr einfach, jeder zu zeichnenden Flä¬ 
che die gleiche Farbe zu geben und fertig. Der Perfektionist wird aber gleich die Frage nach 
einer irgendwie gearteten Lichtquelle auf den Lippen haben, die für diverse Farbnuancen sorgt 
und den räumlichen Effekt enorm erhöht. Nun gut, soll er haben. In diesem Unterprogramm 
berechnet Ihr Amiga die Intensität des Lichtes, das auf die jeweilige Fläche trifft. Diese ist 
selbstverständlich unterschiedlich groß, je nachdem, in welchem Winkel die Fläche zum Licht 
steht (ein ähnliches Problem also wie mit dem Beobachter). Die dazu verwendete Formel (ja, 
es ist eine einfache Formel und kein komplizierter Algorithmus) soll hier nicht erläutert wer¬ 
den. Das geschieht nämlich in dem Ray-Tracing-Kapitel, dem Höhepunkt unseres Buches, den 
Sie sich nicht entgehen lassen sollten. Schlagen Sie also dort einmal nach, wenn Sie Näheres 
wissen wollen. Nur eins: Zur Berechnung der Formel bedarf es der Kenntnis des senkrechten 
Vektors auf die Fläche, den wir in der Sichtbarkeitsuntersuchung bereits ausgerechnet hatten 
und der jetzt gerade noch bereitsteht. Deshalb liegt die Routine ausgerechnet hier. 

Die fertige Farbintensität (ein Wert zwischen Null und Eins) speichert das Programm dann in 
das Array farbe() für den späteren Gebrauch. 

Und jetzt tritt bereits Phase 2 der Sichtbarkeitsuntersuchung in Aktion: Die Flächen werden 
nach Ihrer z-Priorität sortiert. Wie oben erwähnt, vereinfachen wir die Sache, indem wir ledig¬ 
lich einen mittleren z-Wert für jede Fläche ermitteln. Er errechnet sich aus der Summe der 
z-Werte aller Eckpunkte, dividiert durch die Anzahl der Eckpunkte. Exakt gilt der ermittelte 
z-Wert natürlich nur für die Flächenmitte, aber meist entstehen dadurch keine Probleme. 

Aufgabe der zweiten Phase ist es nun, die Fläche so einzusortieren, wie es ihrem mittleren 
Z-Wert entspricht. Später nämlich sollen dann alle Flächen in der Reihenfolge mit absteigendem 
z gezeichnet werden. Das Einsortieren geschieht durch einfaches Einschieben an die richtige 
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Stelle. Dabei wird allerdings nicht mit den Flächendefinitionen selbst, sondern nur mit den 
Nummern der Flächen gearbeitet. Im Array sort.f% () stehen dann nachher die Nummern aller 
Flächen in der Reihenfolge, in der sie gezeichnet werden sollen. 

Damit haben wir bereits alles bezüglich Sichtbarkeit oder Unsichtbarkeit einer Fläche getan, 
und Sie sollten sich wieder zurück ins Hauptprogramm begeben. Die nächste Funktion heißt 
»Projektion«. Nicht mehr besonders schwierig, nicht besonders lang und auch nicht besonders 
unbekannt: die Zentralprojektion. Sparen wir uns lange Erklärungen. 

Der nächste Schritt ist endlich die Zeichnung: Bildschirm löschen, Linienmuster einstellen, 
Fläche für Fläche zu Mattscheibe bringen. 

Die Anzahl der zu zeichnenden Flächen steht in afz%. Die Nummern in der richtigen Reihen¬ 
folge in sort.f%(). Für die jeweils aktuelle Fläche wird die Nummer nach flaech.nr % übertra¬ 
gen, die als Index (neben der Punktnummer k) für das Flächenarray flz%(,) dient. Aus diesem 
Array wird nun Punktnummer für Punktnummer nach punkt.nr% herausgeholt, die ihrerseits 
als Index für die projizierten Punktarrays xe() und ye() Verwendung finden. 

Jeder Punkt wird geclippt und dem Befehl AREA übergeben. Ist das Maß voll, ist also jeder 
Eckpunkt bearbeitet worden, setzt das Programm die richtige Farbe, die ja im Array farbe() 
für jede Fläche bereitsteht und... zeichnet: AREAFILL. 

Die Arbeit ist bis auf weiteres erledigt, alle Flächen sind gezeichnet, das Bild steht. Nun wird 
auf die Benutzereingabe gewartet. Sie wird, so sie vorliegt, analysiert und entsprechende Reak¬ 
tionen eingeleitet. Was soll ich Ihnen sagen, dann beginnt das Spiel von vorne - alles in Basic- 
Geschwindigkeit natürlich, aber was soll’s? 

Alles klar? Na dann stürzen Sie sich hinein, erstellen Sie einmal Ihr eigenes Objekt oder meh¬ 
rere. Vielleicht erweitern Sie das Programm ja auch für Ihre eigenen Bedürfnisse. Viel Spaß! 
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Kapitel 6 



Es wird realistisch: 
perfekte 3-D-Grafik 
mit Lichteinfall, 

Reflexion und Schattierung 
durch Ray-Tracing - 
voller Farbeinsatz auf dem Amiga 
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Was unser Rechner bisher bezüglich Grafik auf den Bildschirm gezaubert hat, ist sicherlich 
recht beeindruckend. Beeindruckend natürlich auch die Geschwindigkeit unseres Rechners, 
der es schafft, komplizierteste Rechnungen auszuführen und trotzdem alle Objekte noch in 
Realzeit auf dem Bildschirm zu rotieren, zu vergrößern, zu verschieben und vieles mehr. Was 
uns bisher allerdings verwehrt blieb, war die echte, die totale Wirklichkeitsnachbildung mit 
allen Faktoren, die das Leben lebenswert machen. 

Im normalen Leben gibt es Licht und Schatten, Gegenstände reflektieren Licht, sind matt oder 
glänzend, durchsichtig oder verspiegelt, blau, weiß, rot, metallfarben. Daß solche Effekte mit 
den Modellen, wie wir sie bisher kennengelernt haben, nur unter äußersten Anstrengungen mit 
den aufwendigsten mathematischen Methoden zu realisieren sind, braucht kaum erwähnt zu 
werden, wenn Sie sich nur einmal den Hidden-Surface-Algorithmus anschauen. Natürlich ist 
es möglich. Wir wollen an dieser Stelle aber eine Technik kennenlernen, die solche Dinge weit¬ 
aus einfacher - wenn auch langsamer - erledigt. Selbst komplizierteste Effekte wie das Pro¬ 
blem der verdeckten Linien oder Licht und Schatten werden mit dieser Technik zum Kinder¬ 
spiel. Die Technik hat einen Namen: Ray-Tracing. 


6.1 Die mathematischen Prinzipien des Ray-Tracing 

Bei den Betrachtungen des Ray-Tracing wird intensiver Gebrauch von der Vektorrechnung 
gemacht, wie Sie sie bereits kennengelernt haben. Schauen Sie sich also die entsprechenden 
Kapitel am besten noch einmal an (Kapitel: »Mathematische Grundlagen zu 3-D-Berech- 
nungen« oder im Anhang). Ohne die Vektorrechnung werden wir hier wohl nicht auskommen. 

Ray-Tracing bedeutet in etwa soviel wie »Strahl-Verfolgung«. Verfolgt werden hier nämlich die 
Lichtstrahlen auf ihrem Weg von der Lichtquelle über die verschiedenen Objekte bis hin zum 
Auge des Beobachters. Mit einem kleinen Unterschied: Die Verfolgung geht genau den umge¬ 
kehrten Weg. Sie startet an der Endstation der Lichtstrahlen, also beim Beobachter, und unter¬ 
sucht praktisch die Spur der Strahlen rückwärts zu den Objekten bis hin zur Lichtquelle. Damit 
ist gewährleistet, daß auch wirklich nur diejenigen Lichtstrahlen berücksichtigt werden, die tat¬ 
sächlich das Auge (oder die Kamera etc.) treffen. 

Technisch geht das Ganze so vonstatten: Stellen Sie sich vor. Sie sitzen vor Ihrem Bildschirm, 
schauen durch den Bildschirm hindurch und beobachten die dahinterliegende Welt (wir nehmen 
einmal an, der Bildschirm besteht nur aus einer einfachen Glasscheibe). Die Mattscheibe kann 
dann als Projektionsebene angesehen werden (s. Bild 6.1), auf der sich die dahinterliegende 
Welt abbildet. 

In unserem Verfahren müssen wir nun für jeden Punkt dieses Bildschirms die passende Farbe 
ermitteln, insgesamt für z.B. 320x256 Punkte, wenn wir im niedrigaufgelösten Modus operie¬ 
ren. Die Berechnung der Farbe jedes einzelnen dieser Punkte ist also unsere Aufgabe. Dazu 
denken Sie sich bitte einmal einen Strahl vom Auge des Beobachters durch den zu berechnenden 
Punkt des Bildschirms hinaus in die Welt. Dieser Strahl wird entweder bis in die unendlichen 
Weiten des Raumes verlaufen oder ein bzw. mehrere Objekte, die sich in der Welt befinden, 
treffen. 
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Bild 6.1: Das Prinzip des Ray-Tracing 


Im ersten Fall erhält der Punkt ganz einfach die Farbe des Hintergrundes. Im zweiten Fall die 
Farbe desjenigen Objektes, das er zuerst trifft, das also am nächsten zum Beobachter liegt 
(womit übrigens das Problem der verdeckten Linien und Flächen sozusagen nebenbei gelöst 
ist). Es hängt nun von der Beschaffenheit dieses Objektes ab, was weiter geschieht. Um Ihnen 
die Technik noch ein wenig schmackhaft zu machen, gleich noch ein paar Aussichten: 

Gibt es keine Lichtquelle im Raum (nur eine allgemeine diffuse Helligkeit), und handelt es sich 
bei diesem Objekt um ein ganz einfaches, mattes, z.B. blaues Gebilde, dann liegt die Farbe des 
jeweiligen Punktes auf der Mattscheibe bereits fest: blau. Das Objekt kann aber auch verspie¬ 
gelt sein. In diesem Fall ist ein zweiter Strahl zu ermitteln, der nach dem Gesetz »Einfallswinkel 
gleich Ausfallswinkel« berechnet werden muß. Dieser Strahl kann nun wiederum in die Ferne 
verlaufen oder ein weiteres Objekt treffen. Trifft er ein normales Objekt, dann wird die Farbe 
dieses Objektes als Punktfarbe übernommen. Ist dieses Objekt ebenfalls verspiegelt, dann geht 
der Prozeß weiter und weiter und weiter ... 

Das Objekt kann aber auch durchsichtig sein. Der Strahl wird also an der Oberfläche nach den 
Brechungsgesetzen gebrochen, tritt an der anderen Seite wieder aus und sucht sich das nächste 
Objekt. 

Vielleicht gibt es auch eine oder gar mehrere Lichtquellen. In diesem Fall wird von dem Punkt, 
an dem der Strahl das Objekt getroffen hat, ein weiterer Strahl zur Lichtquelle gezogen. Dabei 
spielt dann der Winkel dieses Strahles zur Objektoberfläche sowie die Frage eine Rolle, ob sich 
zwischen Objektpunkt und Lichtquelle ein anderes Objekt befindet (Schatten). 

Sie sehen, wie mit einfachen Mitteln komplizierteste Effekte erzielt werden können. Wir wer¬ 
den sie auf den folgenden Seiten kennenlernen und auch mathematisch beschreiben. Sie werden 
lernen, wie - und das sind auch schon die eigentlichen Probleme bei dieser Technik - die ver¬ 
schiedensten Objektformen behandelt werden können. Und Sie werden lernen, wie das alles 
programmtechnisch realisiert werden kann, was auch nicht immer ganz einfach ist. 
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Die Hauptarbeit eines Ray-Tracing-Programmes liegt in der Schnittpunktberechnung von 
Strahlen mit den verschiedenen Objekten der Welt. Etwa 75-95 % der Rechenzeit werden dafür 
benötigt. Die Geschwindigkeit eines Ray-Tracing-Programmes hängt also wesentlich von den 
Algorithmen ab, die für diese Schnittpunktberechnung mit den Objekten gewählt werden. Die 
Zeit zur Erstellung eines Bildes in der Größe des gesamten Amiga-Bildschirmes kann - je nach 
Anzahl und Komplexität der Objekte - bis zu mehrere Stunden betragen, da für jeden Bildpunkt 
Schnittpunkte mit jedem Objekt des Bildes errechnet werden müssen. 



Bild 6.2: Mathematische Ableitung des Ray-Tracing 

Zur mathematischen Ableitung schauen Sie sich Bild 6.2 an. Dort sind die Verhältnisse des Ray- 
Tracing noch einmal veranschaulicht. Sie sehen den Beobachter bei Punkt B(bx,by,bz). Seine 
Position im räumlichen Koordinatensystem ist bekannt. Ferner ist der Punkt in der Welt 
bekannt, auf den der Beobachter gerade blickt; Z(z,i,Zy,z^). Das kann natürlich jeder beliebige 
Punkt der Landschaft sein, je nachdem, welches Objekt Sie später in der Mitte des Bildschirms 
plazieren möchten. Er darf allerdings nicht mit dem Beobachter B zusammenfallen. 

Der Vektor von B nach Z, nennen wir ihn s', ist dann der sogenannte (verlängerte) Blickvek¬ 
tor, der Vektor also, der die Richtung angibt, in die der Beobachter schaut. Er steht in jedem 
Fall senkrecht auf der Mattscheibe. Bekannt sein muß ferner die Entfernung des Beobachters 
von der Mattscheibe. Dies ist die Strecke zwischen B und M (M ist der Mittelpunkt des Bild¬ 
schirms). Alternativ können wir entweder direkt den verlängerten Blickvektor oder den Blick¬ 
punkt angeben. Beides hat seine Vor- und Nachteile. Während im ersten Fall bei einer Änderung 
der Beobachterposition der Blickpunkt stets konstant bleibt, also immer dasselbe Objekt anvi¬ 
siert wird, sich dafür allerdings die Blickrichtung mit dem Beobachter ändert, haben wir es 
im zweiten Fall mit der umgekehrten Situation zu tun: Die Blickrichtung bleibt, der Blickpunkt 
ändert sich. Wir können sehr leicht beide Möglichkeiten offenhalten. 
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Den Vektor von B nach M nennen wir s (Sichtvektor). Die Länge dieses Vektors ist bekannt¬ 
lich Isl (s absolut) und darf nicht Null sein. Er entspricht der Brennweite eines Objektivs und 
wird fix auf 1 gesetzt. In unserem Algorithmus verwenden wir noch zusätzlich einen sogenann¬ 
ten Beobachtungswinkel Er bestimmt den Bereich der Welt, der auf der Mattscheibe abge¬ 
bildet wird. Den gleichen Effekt hätten wir auch mit dem Abstand des Beobachters von der 
Mattscheibe erreichen können, den wir ja fest auf 1 gesetzt haben. So ist es allerdings ein wenig 
anschaulicher. 

Ein paar weitere Parameter muß Ihr Programm natürlich ebenfalls kennen: die x- und die y- 
Auflösung xa bzw. ya, sowie die x- und y-Punktgröße xpg und ypg, um das Bild nicht zu verzer¬ 
ren. Aus diesen Parametern errechnet sich übrigens auch der y-Blickwinkel wy, der allerdings 
nicht benötigt wird, xy und ya geben eigentlich nur die Anzahl der darzustellenden Punkte in 
X- und y-Richtung an, also praktisch die Fenstergröße. Je kleiner die beiden Werte gewählt wer¬ 
den, desto weniger Punkte werden berechnet und desto schneller ist das Bild fertig. Ferner ver¬ 
einbaren wir zur Vereinfachung der Berechnungen, daß die Mattscheibe nicht um die z-Achse 
gedreht wird. Rechts und links gegenüberliegende Eckpunkte besitzen also stets dieselbe y- 
Koordinate, oben und unten gegenüberliegende Eckpunkte gleiche x-Koordinaten. Diese Ver¬ 
einbarung ist nicht allzu tragisch, da Sie Ihren Monitor sicherlich nicht schrägstellen wollen. 

Zunächst einmal möchten wir den Vektor s berechnen. Wir kennen nur seine Länge Isl. Seine 
Richtung ist jedoch dieselbe wie s' (verlängerter Sicht- oder Blickvektor). Es gilt also: 

s = n*s' 

und nach der Definition von Vektorlängen: 

IsP = Sx^ Sy^ + 

Der Vektor s' ist leicht aus den Endpunkten B und Z zu ermitteln (beachten Sie, daß Punkte 
auch als Vektoren vom Nullpunkt zum Punkt angesehen werden können): 

B -I- s' = Z <=> s' = Z-B 

Es gilt also: 

s = n * (Z-B) 

und damit: 

Isl = n * IZ-BI <=> 

Isl 

n = - 

IZ-Bl 


Damit erhalten wir: 


s = 


Isl 

IZ-Bl 


* (Z-B) 




232 Es wird realistisch 


Die Länge IZ-Bl des Vektors (Z-B) ist leicht durch die bekannte Längenformel zu errechnen: 
IvP = Vx^ + 'ty^ + '^z 

Ivl errechnet sich dann durch die Wurzel aus dem rechten Teil der Gleichung. Da Isl immer 
gleich 1 ist, vereinfacht sich die Gleichung entsprechend. Damit ist uns der eigentliche Blick¬ 
vektor s bekannt. 

Um einen beliebigen Punkt P auf der Mattscheibe anzusprechen, verwenden wir (neben dem 
Beobachterstandpunkt und dem Sichtvektor natürlich) die beiden Einheitsvektoren ice und ye. 
Sie geben jeweils den x- bzw. y-Abstand zweier Punkte an. Der Abstand hängt natürlich auch 
von der Punktgröße xpg bzw. ypg ab. Ein Punkt P mit den Koordinaten x,y errechnet sich dann 
wie folgt: 

P = B + s -f (x*xpg)»xe -f (y*ypg)»>^ 

Beachten Sie, daß der Nullpunkt des Bildschirm-Koordinatensystems in der Bildmitte M liegt. 
X und y haben also Werte von -xa/2 bis -t- xa/2 bzw. -ya/2 bis -t- ya/2 (xa, ya sind die x- bzw. 
y-Auflösungen des Bildschirms). 

Die Berechnung der Einheitsvektoren xe und ye wird Sie also bereits brennend interessieren. 
Nun, die ist ein wenig komplizierter. Bestimmen wir als erstes xe: Da der Blickvektor s senk¬ 
recht auf der Mattscheibe stehen soll, muß das Skalarprodukt s*xe gleich Null sein. Damit 
haben wir eine Aussage für die Richtung von xe: 

s*xe = 0 <=> 

Sx*xex -f Sy’xey -I- Sz’xe^ = 0 

Als zweites Kriterium, das sich mit der Länge von xe beschäftigt, gilt: 

ME = (xa/2) »xpg »Ixel 
wobei: 

ME Strecke Mittelpunkt- > Punkt E 
xa x-Auflösung 
xpg x-Punktgröße 
Ixel Länge des x-Einheitsvektor 

Beide Kriterien müssen also erfüllt sein. Beginnen wir mit der Länge des Einheitsvektors Ixel: 

Betrachten Sie dazu noch einmal die Zeichnung. Das Dreieck, das von den Punkten B, M und 
E gebildet wird, ist rechtwinklig. Der rechte Winkel liegt im Punkt M. Der Winkel bei B ist 
der halbe Blickwinkel wJ2. Gesucht sei die Länge der Strecke ME. Es gilt damit: 

tan(Wx/2) = ME / Isl <=> 

ME = tan(Wx/2)*lsl 

Für die Länge der Strecke ME haben wir bereits einen Ausdruck: 

ME = (xa/2)* xpg* Ixel 
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bei Gleichsetzung der beiden Gleichungen erhalten wir damit: 

(xa/2)*xpg*lxel = tan(Wx/2)*lsl <=> 

Ixgl = 2*tan(Wv/2)*lsl 
xa»xpg 

Die benötigte Länge des x-Einheitsvektors ist ermittelt. 

Begeben wir uns jetzt daran, die Richmng von xe festzustellen. Ausgangspunkt ist dabei die 
obige Gleichung: 

Sx*xex + Sy’XCy + Sz*xez = 0 

Erinnern Sie sich? Wir hatten vereinbart, daß der Rotationswinkel der Mattscheibe um die 
z-Achse gleich Null sein soll. Damit ist die y-Koordinate des Fußes von xe identisch mit der 
der Spitze (der Vektor ist parallel zur x-z-Ebene). Es gilt also zusätzlich: 

XCy = 0 

Die Gleichung vereinfacht sich damit in: 

Sx*xex + Sz’xCz = 0 

Hier müssen wir leider drei Fälle unterscheiden: 

Fall 1: Sx < > 0: 

In diesem Fall können wir die Gleichung einfach nach xcx auflösen: 

XCx = -(Sz»Xez)/Sx 


Fall 2: Sx = 0 und Sz < > 0: 

Da die Division durch Null verboten ist, ist es nicht möglich, die Gleichung nach xCx aufzulö¬ 
sen. Es darf allerdings auch nicht jeder beliebige Wert für xCx eingesetzt werden, da das zweite 
Kriterium (die Länge des Vektors xe) ebenfalls erfüllt sein muß. Wir behelfen uns also mit der 
Auflösung nach xCz: 

XCz = -(Sx»Xex)/Sz 


Fall 3: Sx = 0 und Sz = 0: 

Tja, jetzt sind uns die Hände gebunden: Keine der beiden Auflösungen ist uns erlaubt. Das ist 
allerdings auch nicht so schlimm, da der Vektor s in diesem Falle parallel zur z-Achse verläuft 
(der Nullvektor darf er ja nicht sein, Sy ist also in diesem Fall ungleich Null!). Der gesuchte 
Einheitsvektor ^ muß damit parallel zur x-Achse verlaufen. xCz ist also gleich Null (xCy 
sowieso), während xCx dann gleich der Länge des Einheitsvektors sein muß: 

XCz = 0 

xCx = Ixel 

Fall 3 wäre damit bereits vorzeitig abgeschlossen und braucht nicht mehr berücksichtigt zu 
werden! 
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Die beiden Fälle 1 und 2 allerdings müssen wir noch ein wenig weiter verfolgen. Sx und Sz sind 
bekannt (Sichtvektor). Es gilt demnach, die jeweils andere Unbekannte xez für Fall 1 und xCx 
für Fall 2 zu bestimmen. Da hilft uns wieder die Länge des Vektors xe, die Sie ja bereits berech¬ 
nen können: 

IxeP = xex^ + xcy^ -I- 

und mit xey = 0 (s.o.): 

IxeP = xex^ + xez^ 

Hier kann die jeweilige Gleichung von oben nun eingesetzt werden. Spielen wir das anhand des 
ersten Falles einmal durch (Sx ist also ungleich Null): 

IxeP = xCz^ + (-Sz*xez/Sx)^ <=> 

Ixel^ = xCz^ + xez^*(Sz/Sx)^ <=> 

IxeP = xcz^ * [1 + (Sz/Sx)^] <=> 

xe,2 = -(Für Fall 1: SxOO) 

1 (Sz/Sx) 

Damit haben wir einen Ausdruck für xCz. Den können Sie dann in den weiter oben angeführten 
Ausdruck für xCx einsetzen. 

Für den zweiten Fall erhalten wir ganz analog: 

xcx^ = . —r (Für Fall 2: Sx=0 und Sz< >0) 

1 + (Sx/Sz)2 

Auf die gleiche Weise ermitteln wir nun auch den y-Einheitsvektor. Auch hier sind drei Fälle 
zu unterscheiden. Bei ihm wird dann allerdings die x-Koordinate gleich Null. Wir kommen zu 
den folgenden Gleichungen: 


Fall 1: Sv < > 0: 


Fall 2: Sv=0 und Sz< >0: 


Fall 3: Sy=0 und Sz=0: 

yez = 0^ 

ycy = lyel 
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für alle Fälle gilt dann noch: 

1^1 = Ixet 

Die Länge der beiden Einheitsvektoren ist selbstverständlich gleich, braucht also nur einmal 
am Anfang berechnet werden. 



Bild 6.3: Strahlberechnung 

Damit haben wir eigentlich die Grundlagen gelegt. Im Programm werden dann in zwei großen 
ineinanderverschachtelten FOR...NEXT-Schleifen alle Punkte von -xa/2 bis +xa/2 und von 
-ya/2 bis +ya/2 abgeklappert. Mit der oben bereits angeführten Formel: 

Pm = B + s + x*xpg*^ + y*ypg*ye 

berechnet man den jeweiligen Punkt auf der imaginären Mattscheibe (s. Bild 6.3). Durch diesen 
Punkt muß dann ein Strahl vom Beobachter B in den Raum gezogen werden. Dieser Strahl (eine 
Gerade) berechnet sich nach der Vektorform der Geradengleichung: 

P = Pm + k»b 

mit: 

b = Pm - B 
also: 

P = Pm + k*{P„,-B) 
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wobei: 

Pjn Punkt auf der Mattscheibe 
B Beobachter 

b Basisvektor von B nach Pn, 

k Verlängerungsfaktor 

P Ein Punkt der Geraden 

Nun müssen nacheinander alle in der Weit befindlichen Objekte darauf getestet werden, ob sie 
von der Geraden geschnitten oder berührt werden. Ist das bei mehreren Objekten der Fall, dann 
wird derjenige Schnittpunkt für die weiteren Berechnungen verwandt, der am nächsten zum 
Beobachter liegt, der also das kleinste k besitzt. Wie Sie bei den verschiedenen Objekten ein¬ 
zelne Schnittpunkte errechnen, das erfahren Sie im nächsten Kapitel. 


6.2 Schnittpunktberechnungen an Körpern und 
Flächen 

6.2.1 Die Kugel 

Am einfachsten, und vor allem am schnellsten, gestaltet sich die Berechnung eines Schnittpunk¬ 
tes zwischen der Sichtgeraden und einem Körper bei der Kugel. Die Kugel ist deshalb das wohl 
am häufigsten verwendete Objekt beim Ray-Tracing. 



Schauen Sie sich dazu Bild 6.4 an. Gesucht ist der Radiusvektor r, dessen Länge dem Radius 
der Kugel mit dem Mittelpunkt K^, entspricht, d hat seinen Fuß im Kugelmittelpunkt K^, 
seine Spitze auf der Geraden im Punkt P^: 

f = Pk - Kn, 
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Pk ist Punkt der Geraden durch den Mattscheibenpunkt P^ mit dem Richtungsvektor b: 

Pk = Pm + 

also: I 

r = Pm + k*b - Km <=> j 
r = (Pm-Km) + k*b 

Gesucht ist also der Verlängerungsfaktor k, der den Radiusvektor r liefert. Da die Länge von 
r der Radius R der Kugel ist, gilt ferner: 

lr|2 = R2 

Setzen Sie die obige Formel für r ein: 

l(Pm-Km)+k*bP = R2 

Für den Vektor (Pm-Km) setzen wir nun der Einfachheit halber: v. Dann gilt: 

V = Pm-Km 

und damit: 

Vx = Pmx-Kmx 
'ty Pmy—Kmy 
Pmz—Kmz 

Es geht weiter mit: 

lv+k»bl^ = R^ <=> 

v^ + 2*k*v*b + k^*ß^ = R^ <=> 

(g2)»k2 + (2«v»b)*k + (v^-R2) = 0 

Wir setzen nun: 

a = b^ = bx^ + by^ + bz^ 

b = 2*v*b = 2*(Vxbx + Vyby + v^b^) 

c = v^-R^ = Vx^ + Vy2 + Vz^ - R^ 

und erhalten: 

a*k2 + b*k + c = 0 

Diese lange quadratische Gleichung können wir nach k auflösen. Verwendung findet dabei die 
Lösungsformel für quadratische Gleichungen: 



Bedenken Sie, daß für die Koeffizienten a, b und c obige Ausdrücke eingesetzt werden müssen! 
Auch Vx, Vy und v^ sind zusammengesetzte Ausdrücke! 
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In diesem Stadium sind Sie bereits in der Lage zu entscheiden, ob die Kugel von der Geraden 
geschnitten wird oder nicht. Das bestimmt die Diskriminante D = b- - 4*a»c (also der Term 
unter der Wurzel). Es gilt: 

D < 0 => Die Gerade schneidet die Kugel nicht 

D = 0 => Die Gerade berührt die Kugel in einem Punkt 

D > 0 => Die Gerade schneidet die Kugel in zwei Punkten 

Das resultiert daraus, daß eine Wurzel aus einer negativen Zahl (D<0) im reellen Zahlenbe¬ 
reich nicht definiert ist. Ist D = 0, dann wird auch die Wurzel gleich Null und der gesamte 
Wurzelterm lallt weg. k ist dann gleich-b/(2*a). Ist D >0, dann ist die Wurzel relevant. Es 
existieren zwei Lösungen. 

Der errechnete Parameter k ist ein Maß dafür, welchen Abstand der Schnittpunkt vom Beobach¬ 
ter hat. Im Normalfall entscheidet sich das Programm also für das kleinere k (den näheren 
Schnittpunkt), sofern es nicht negativ ist. In diesem Fall läge der Schnittpunkt nämlich hinter 
der Mattscheibe, wäre also strenggenommen gar nicht sichtbar. Wird das größere k einer Kugel 
verwendet, dann ist das derjenige Schnittpunkt, bei dem der Strahl wieder aus der Kugel her¬ 
austritt! Aus k kann bei Bedarf Jederzeit der richtige Raumpunkt berechnet werden, was aber 
in den meisten Fällen nicht nötig ist. 

6.2.2 Die ebene Fläche (Parallelogramm) 

Die Schnittpunktberechnung an einer ebenen Fläche in Form eines Parallelogrammes (z.B. 
eines Rechtecks) gehört ebenfalls zu den noch einfacheren Aufgaben. Beliebige Polygone sind 
da schon eine gehörige Portion schwieriger zu bearbeiten. Unter einem Parallelogramm ver¬ 
steht man eine viereckige Fläche, bei der die jeweils gegenüberliegenden Seiten parallel zuein¬ 
ander verlaufen. Liegen die Seiten sogar in einem rechten Winkel zueinander, so haben wir es 
mit dem Sonderfall eines Rechtecks zu tun. Sind zusätzlich noch alle Seiten gleich lang, handelt 
es sich um ein Quadrat. 

Das Prinzip ist klar: Es wird zunächst ein Schnittpunkt einer Geraden (des Sichtstrahles) mit 
einer Ebene errechnet. Dann muß überprüft werden, ob sich der Schnittpunkt innerhalb 
bestimmter Grenzen befindet. 

Wie wäre ein Parallelogramm zu definieren? Bei der Kugel brauchten nur Mittelpunkt und 
Radius gespeichert werden. Bei der Fläche empfiehlt es sich, zunächst einmal die Parameter 
für die vektorielle Ebenengleichung festzulegen: 

P = P(i + k V -t- m w 

Der Punkt Pq und die Vektoren v und w müssen also abgespeichert werden. Pq sollte dabei ein 
beliebiger Eckpunkt der Fläche sein. Der Vektor v hat dann seinen Fuß in Po und seine Spitze 
im benachbarten Eckpunkt. Der Vektor w fußt ebenfalls in Pq, verläuft aber zum anderen 
Punktnachbarn (s. Bild 6.5). 
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Mit dieser Anordnung kann sehr schnell nachgeprüft werden, ob ein Punkt innerhalb des Paral- 
lelogrammes liegt oder nicht. Müssen zur Berechnung des fraglichen Punktes für k oder für 
m oder gar für beide Werte eingesetzt werden, die größer als 1 oder kleiner als Null sind, dann 
liegt der Punkt außerhalb der Fläche. Gilt aber: 

0=k = l und 0 = m=l 

dann liegt der Punkt im Parallelogramm. 

Kommen wir zur eigentlichen Schnittpunktberechnung. Auf Bild 6.5 können Sie wieder alles 
mitverfolgen. Der spekulative Schnittpunkt soll Ps sein. Er liegt sowohl auf der Linie als auch 
auf der Fläche. Für ihn gelten also sowohl die Linien- als auch die Flächengleichung: 

Ps = Pm + s»b und 

Ps = Po + k*v + m*w 

wobei: 

Ps Schnittpunkt? 

Pm Punkt auf Mattscheibe 

b Geradenrichtungsvektor 

s Geraden-Verlängerungsfaktor 

Po Eckpunkt des Parallelogramms und Fußpunkt der Vektoren v und w 

v, w Ebenen richtungsvektoren 

k, m Verlängerungsfaktoren für v, w 

An dieser Stelle sollten Sie sich noch einmal Kapitel 4.3 anschauen. Dort finden Sie die alterna¬ 
tive Form der Ebenengleichung, die Normalen-Gleichung und die Formeln zur Umrechnung 
der einen in die andere. Die Normalen-Gleichung lautet dann in unserem Fall: 


(Ps-Po) * ii = 0 
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n ist die Normale (der auf der Ebene senkrechte Vektor) und kann durch das Vektorprodukt 
aus V und w ermittelt werden: 

n = vxw 

Es wird im folgenden viel einfacher sein, mit dieser Form zu rechnen, auch wenn dazu erst 
ein Vektorprodukt berechnet werden muß. 

Setzen wir also die Geradengleichungen in die für die Ebene ein: 

(Pm + s»b - Po) » n =0 <=> 

(Pm - Po)*n + s*b»n = 0 <=> 

s*b*h = (Po-Pm)*n 

An dieser Stelle wird eine Fallunterscheidung notwendig. Jetzt nämlich können wir feststellen, 
ob ein Schnittpunkt überhaupt existiert: 


Fall 1: B*n = 0: 

In diesem Fall wird der linke Teil der Gleichung Null: 

0 = (Po-Pn,)»n 

Falls dieser Ausdruck wahr ist, dann können Sie beliebige Werte für s einsetzen, die Gerade 
liegt also auf der Ebene. Es existieren sozusagen unendlich viele Schnittpunkte. 

Falls der Ausdruck jedoch falsch ist, dann verläuft die Gerade parallel zur Ebene, es gibt also 
keinen Schnittpunkt. 


Fall 2: b»n < > 0: 

Hier dürfen wir wie gewohnt weiterrechnen und erhalten für s: 

s = (Po-Pm)*n 
b * n 

s aber gibt den Verlängerungsfaktor für den Richtungsvektor der Gerade an. Der Schnittpunkt 
Ps kann errechnet werden. 

Uns interessiert nun aber, ob sich Ps nicht nur auf der Ebene, sondern auch auf dem Parallelo¬ 
gramm befindet. Dazu müssen wir die Normalenform der Ebenengleichung wieder rückrech¬ 
nen in die Form mit k und m. Die Vektoren v und w sind uns bereits bekannt: 

Ps = Po + k*v -I- m*w 

In Parameterform: 

Psx = Pox + k*Vx -t- m»Wx 

Psy = POy + k*vy -I- m*Wy 

Psz = Poz + k*V 2 -I- m»W 2 
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Nach der genannten Ableitung in Kapitel 4.3. wählen wir die beiden Gleichungen aus, für die 
gilt (i und j stehen für x, y oder für z): 

V, <> 0 und 

Wj»Vi - Wj*Vj < > 0 

(z.B.i Vx< >0 und Wz*Vx-Wx»Vz< > 0) 

Sollte es keine Kombination von zwei Gleichungen geben, die die Bedingungen erfüllen, liegt 
ein Fehler vor. Die beiden Vektoren v und w sind nicht linear unabhängig. 

Sind die beiden Gleichungen gefunden, die an diesen Bedingungen nicht scheitern (was norma¬ 
lerweise sofort die ersten beiden sind), dann errechnen Sie k und m einfach durch; 

^ 3 , (Pi.rPoi)*Vi - (PM-Poi)-Vi 

Wj*Vj - Wi»Vj 
k = (Psi-Poi - m*Wi)/Vi 

Testen Sie vor der Berechnung von k, ob m im erlaubten Bereich von 0 bis 1 liegt. Testen Sie 
ebenfalls, ob sich k in diesem Bereich befindet. Sind alle diese Bedingungen erfüllt, dann 
schneidet die Gerade das Parallelogramm tatsächlich. Ist s jedoch negativ, dann liegt der 
Schnittpunkt hinter der Mattscheibe und ist unsichtbar. 

Oft werden die Ebenen in einer Welt an ganz bestimmte Stellen verlegt, um den Rechenaufwand 
zu verringern. So könnte ein Boden beispielsweise in der xy-Ebene mit z = 0 liegen. Die obigen 
Gleichungen vereinfachen sich entsprechend. 

Steht erst einmal fest, daß der Strahl die Fläche schneidet, dann können für die Farbwahl sehr 
einfach noch andere Informationen hinzugezogen werden. So kann auf der Fläche z.B. ein 
Schriftzug oder gar eine kleine Grafik stehen. Das wärez.B. dadurchzu schaffen, daß sichjeder 
Punkt der Fläche in binärer Pixelform (also genauso wie im normalen Bildspeicher) im Spei¬ 
cher befindet. Die Werte für k und m geben dann die Koordinaten des betreffenden Punktes auf 
der Fläche an. Im Speicher kann dann nachgeschaut werden, was sich an dieser Stelle gerade 
befindet. Das können natürlich auch Informationen über unterschiedliche Oberflächenbeschaf¬ 
fenheit sein. So könnten Sie beispielsweise die Fläche an den Stellen verspiegeln, an denen sich 
Grafik befindet etc. 

Sie sind dann also in der Lage, eine Grafik oder einen Text mit einem normalen Grafikpro¬ 
gramm zu erstellen und abzuspeichern. Diese Grafik erscheint dann auf Ihrem Ray-Tracing- 
Bild auf der entsprechenden Fläche gedreht oder vergrößert im Raum. Oft werden auch die auf 
die Fläche projizierten Muster etc. rechnerisch bestimmt (z.B. Schachbrettmuster etc.) 

Die Prozedur ist selbstverständlich auch für andere Objekte wie Kugeln etc. durchführbar - 
natürlich mit entsprechend mehr Aufwand für die jeweiligen Projektionen der Grafik auf das 
Objekt. 
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6.3 Lichtquellen: Reflexion, Glanz, Licht und Schatten 

Bevor Sie endlich erfahren, wie man Ray-Tracing überhaupt programmiert, schauen Sie sich 
doch dieses Kapitel noch einmal an, es lohnt sich. Hier erfahren Sie nämlich, wie die Einflüsse 
des Lichtes in Ihrer Landschaft realisiert werden können. Hier lernen Sie spiegelnde Objekte, 
glänzende und matte Flächen sowie die Schattenbildung kennen. Das alles hängt zentral zusam¬ 
men. Sie werden mit den verschiedenen physikalischen Gesetzen arbeiten, die hier hineinspie¬ 
len. Sie können sich aber auch Ihre eigenen Naturgesetze schaffen, wie es Ihnen beliebt. Diese 
Gesetze, Formeln und Ableitungen gelten aber nicht nur für das Ray-Tracing. Sie können sie 
teilweise sehr leicht auch in andere 3-D-Algorithmen einbauen und damit verblüffende Effekte 
erzeugen. 

Sicherlich können wir hier nicht alle Effekte berücksichtigen. Oft werden wir uns nur mit Nähe¬ 
rungsformeln beschäftigen, die uns die Arbeit wesentlich vereinfachen. Denn so viele Dinge 
spielen bei der Berechnung von Farbe und Lichtintensität eine Rolle. Wir werden z.B. alle Far¬ 
ben gleich behandeln. In Wirklichkeit wird jede Wellenlänge anders reflektiert, gebrochen etc. 
Jedes Material, sei es Papier, Gold, Silber oder Kunststoff hat seine eigenen Charakteristika, 
die sich nicht berechnen lassen, sondern nur in aufwendigen Tabellen nachgeschlagen werden 
können. Nicht umsonst können wir auf Anhieb sagen, ob es sich bei einem Gegenstand um wei¬ 
ßes Papier oder um weißes Glas handelt etc. Alle diese wesentlichen Kleinigkeiten werden wir 
hier nur annähern, um ein ästhetisch möglichst schönes Bild zu erhalten. Viele Werte, Konstan¬ 
ten usw., die im folgenden Verwendung finden, sind Erfahrungswerte, die Sie jederzeit ändern 
können und auch sollten. Doch nun ans Werk. 


6.3.1 Diffuse Reflexion 

Sicher hat jeder schon einmal irgendwo von dem zentralen Reflexionsgesetz gehört, das sowohl 
für Licht wie auch für Billardkugeln gilt: Einfallswinkel gleich Ausfallswinkel. Obwohl dieses 
idealisierte Gesetz natürlich immer gilt, sieht die Wirklichkeit sehr viel komplizierter aus. 
Trifft ein Lichtstrahl nämlich auf eine Oberfläche, so hängt es von der Beschaffenheit der Ober¬ 
fläche ab, auf welche Weise und in welche Richtungen das Licht reflektiert wird. Eine polierte 
Oberfläche beispielsweise wird sich - mehr oder weniger - exakt an das Reflexionsgesetz hal¬ 
ten. Eine rauhe, d.h. matte Oberfläche aber reflektiert den Lichtstrahl in alle möglichen Rich¬ 
tungen. Je matter die Oberfläche, desto breiter gefächert wird der Strahl reflektiert. Ein gewis¬ 
ser Anteil des Lichtes verteilt sich sogar in alle Richtungen. Man spricht bei diesem Anteil auch 
von der sogenannten diffusen Reflexion im Gegensatz zur spiegelnden Reflexion. 

Bild 6.6 veranschaulicht die Verhältnisse. Bei der diffusen Reflexion, die ja in alle Himmels¬ 
richtungen strahlt, spielt der Einfallswinkel der Lichtstrahlen auf eine Fläche nur insofern eine 
Rolle, als er die Helligkeit des jeweiligen Punktes bestimmt. Je senkrechter das Licht einfallt, 
desto heller wird auch der Punkt sein. Sie kennen das: Am Äquator fallt das Sonnenlicht fast 
senkrecht auf die Erde, bei uns leider in einem kleineren Winkel. Das ist auch der Grund dafür, 
weswegen es am Äquator wärmer ist. 
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Bild 6.6: Diffuse Reflexion 


Neben der einen Lichtquelle haben wir aber noch Licht zu berücksichtigen, das auf andere 
Gegenstände fallt und von dort wieder auf andere Gegenstände und/oder auf unseren Punkt aus¬ 
gestrahlt wird. Sie können sich vorstellen, wie aufwendig die Berechnung wäre. Statt dessen 
nehmen wir einfach eine allgemeine diffuse Hintergrundhelligkeit an, die ebenfalls von unse¬ 
rem Punkt reflektiert wird. Die Lichtintensität, die aus dieser Hintergrundhelligkeit resultiert, 
addiert man zu dem Licht, das aus der Reflexion resultiert. 

Wir kommen dann zu der folgenden Formel für die Intensität des von einem Punkt ausgestrahl¬ 
ten Lichtes: 

I = Ih»Koh + Iq*Kod*COS(a) 
wegen: 

n*L = lnl*lLl*cos(a) <=> 

cos(a) = (n«L) / (lnl*lLl) <=> 

cos(a) = n/lhl*L/lLl <=> 

cos(a) = n' * L' 

gilt auch: 

I = Ih*K„h + Iq*K„d * n'*L' 
wobei: 

I Intensität des vom Punkt ausgestrahlten Lichtes 

Ih Intensität der Hintergrundhelligkeit 

Koh Reflexionskonstante für die Hintergrundreflexion mit 0 = Koh = 1 (Objekt- bzw. 

Farbhelligkeit) (auch Helligkeit oder Farbe des Objektes) 

Iq Intensität der Lichtquelle 

Kod Reflexionskonstante für die diffuse Reflexion mit 0 = Kod = 1 (Objekt- bzw. Farb¬ 
helligkeit) (auch Helligkeit oder Farbe des Objektes) 
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a Winkel zwischen dem Lichtvektor L und dem zur Oberfläche normalen 
(= senkrechten) Vektor n 
L Lichtvektor 

L' Einheits-Lichtvektor (Länge = 1) 

n Oberflächen-Normalvektor (senkrechter Vektor zur Oberfläche) 

n' Einheits-Normalvektor (Länge = 1) 

Die Einheit für die Intensitäten kann von Ihnen willkürlich festgelegt werden (z.B. 0-100 oder 
0-1). Die Konstanten Koh und Kod sind von den Reflexionseigenschaften des jeweiligen Objek¬ 
tes abhängig. Reflektiert das Objekt sehr stark, dann bewegt sich der Wert für Koh bzw. Kod 
um 1. Reflektiert es sehr schwach, dann liegt er um 0. Meist sind die beiden Werte identisch 
(Koh = Kod). Sie sind ein Maß für die Grundhelligkeit des Objektes. Jedes Objekt absorbiert 
(verschluckt) einen gewissen Anteil des Lichtes. Bei gleicher Beleuchtung ist ein Objekt heller, 
ein anderes dunkler. 

Absorbiert ein Objekt alle Teile des Lichtes gleichermaßen zu einem bestimmten Anteil (also 
für uns die Rot-, Grün- und Blauanteile), dann erscheint es bei weißem Licht grau. Absorbiert 
es (fast) das gesamte Licht, ist es schwarz. Wird jedoch (fast) alles Licht zurückgestrahlt, dann 
wirkt es weiß. 

Manche Objekte absorbieren nur ganz bestimmte Frequenzen des Lichtes. Das Objekt wird far¬ 
big. Werden beispielsweise alle Rot- und alle Blau-Anteile absorbiert, dann wird nur Grün 
zurückgeworfen. Das Objekt ist grün. 

Da wir es immer mit farbigen Objekten zu tun haben werden, die ganz bestimmte Grundintensi¬ 
täten für die Farben Rot, Grün und Blau besitzen, sind die Konstanten Koh und Kod die Hellig¬ 
keitswerte für diese Grundfarben. Jede Grundfarbe hat einen eigenen Helligkeitswert. Die 
obige Formel muß also für jede der drei Grundfarben berechnet werden. Auf diese Weise sind 
sogar farbige Lichtquellen möglich, da die Lichtquelle ebenfalls unterschiedliche Intensitäts¬ 
werte Iq für die drei Farbanteile haben kann. Das Ergebnis I ist dann der Helligkeitswert des 
Punktes für die jeweilige Grundfarbe, z.B. Grün. 

Ein Faktor wurde bisher noch nicht berücksichtigt: die Entfernung. Je mehr Weg das Licht 
zurücklegt, desto schwächer wird es, da es sich zerstreut. Normalerweise nimmt die Stärke des 
Lichtes umgekehrt proportional mit dem Quadrat der Entfernung ab, also: P = I/d^ mit d als 
Entfernungswert. Passender für die Bildästhetik hat sich jedoch die Formel P = I/(d * Kj) 
herausgestellt, mit Kj als willkürliche Konstante. Gemessen wird der Einfachheit halber stets 
die Entfernung Lichtquelle -> Objektpunkt, obwohl die Entfernung zum Beobachter natürlich 
auch eine Rolle spielen müßte. Angewandt auf den Lichtquellenteil unserer Formel hieße das: 

I - I,.K.h + 

d * Kd 
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6.3.2 Spiegelnde Reflexion 

Damit haben wir bereits ein sehr einfaches Helligkeitsmodell für unser Ray-Tracing-Programm 
zur Verfügung. Wir können aber noch weitergehen, zur spiegelnden Reflexion. »Spiegelnd« 
heißt hier nicht unbedingt, daß sich alle Objekte scharf auf dem »spiegelnden« Objekt abbilden, 
was der Fall wäre, wenn der Eintrittswinkel a exakt gleich dem Austrittswinkel wäre (oder 
anders formuliert: Für eine perfekte spiegelnde Reflexion muß der Winkel b immer gleich 0 
sein). Die eintretenden Lichtstrahlen können vielmehr innerhalb eines bestimmten Winkel¬ 
bereiches reflektiert werden (s. Bild 6.7). Das Maß der Reflexion nimmt mit der Entfernung 
des Sichtvektors S vom exakten Reflexionsstrahl R ab. Je größer also der Winkel b zwischen 
R und S ist, desto geringer wird die Reflexionsintensität, die durch folgende Formel 
berechenbar ist: 

Is = Iq » w(i,l) » cos(b)f 
wegen: 

R*S = IRI* ISl*cos(b) <=> 

cos(b) = (R* S) / (IRI*IS1) <=> 
cos(b) = R' * S' 

gilt auch: 

Is = Iq * r(a,l) * (R'*S')f 



Bild 6.7: Spiegelnde Reflexion 
wobei: 

Is Intensität des Punktes durch spiegelnde Reflexion 

Iq Intensität der Lichtquelle 

b Winkel zwischen dem exakten Reflexionsvektor R und dem Sichtvektor S 
R Exakter Reflexionsvektor 

R' Einheits-Reflexionsvektor (Länge = 1) 
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S Sichtvektor (Punkt ->Beobachter). Beachten Sie, daß wir oben den Sichtvektor vom 
Beobachter zum Punkt gerichtet hatten. In dem Falle müssen Sie entsprechend 
umrechnen (S = -s) 

S' Einheits-Sichtvektor (Länge = 1) 

r(a,l) Reflexionsfunktion in Abhängigkeit vom Einfallswinkel a und der Wellenlänge des 
Lichtes 1 mit 0 = r(a,l) = 1 
f Fokussierung 

Berücksichtigt wurde hier noch nicht der Abstand zur Lichtquelle. Die Reflexionsfunktion 
r(a,l) ist völlig materialabhängig. Die verschiedenen Stoffe, Metalle, Kunststoffe etc. besitzen 
nämlich einen unterschiedlichen Reflexionsgrad, je nachdem, welche Farben eingestrahlt wer¬ 
den, aus welchen Wellenlängen sich also das Licht zusammensetzt. Das heißt, die Materialien 
verändern das Licht, das sich in ihnen spiegelt, geringfügig. Aus dem gleichen Grunde sind 
z. B. manche Spiegel nicht farbecht. Zum zweiten hängt der Reflexionsgrad bei den unterschied¬ 
lichen Stoffen in unterschiedlicher Weise vom Einfallswinkel ab. Mit dieser recht komplizierten 
Funktion wollen wir uns hier gar nicht beschäftigen. Näherungsweise werden wir sie einfach 
durch eine Konstante Kr ersetzen, die je nach Bedarf gewählt werden kann: 

r(a,l) = Kr mitO^Kr^l 

Die Variable f ist ebenfalls eine Materialkonstante. Sie gibt an, wie stark konzentriert der Refle¬ 
xionsbereich ist, d.h. je größer f ist, desto schwächer wird die Reflexion bei gleicher Entfernung 
des Vektors S von R. Bei R ist die Reflexion jedoch immer noch gleich hoch, f gibt also an, 
wie scharf eine Lichtquelle abgebildet wird. Setzen Sie für f riesige Werte ein, erhalten Sie eine 
perfekte Spiegelung, da der Ausdruck cos(b)f nur noch für b = 0 =$> cos(b) = 1 nennenswerte 
Beträge liefert. Metallische Gegenstände beispielsweise werden ein eher hohes f besitzen 
(f = 50 bis f = 100), matte Objekte dagegen eher niedrige Werte. Im Zweifelsfall geht hier Pro¬ 
bieren, wie bei allen anderen Konstanten, auch über Studieren. 


Spannend wird es jetzt, wenn wir die beiden Effekte der diffusen und der spiegelnden Reflexion 
zusammenpacken: 


I - Ih*Koh + ^ \ 
d * Kd 

* [Kod*cos(a) + Kr*cos(b)f] 

<=> 

I - Ih*Koh + 

d*Kd 

« [KodKn'*L‘) + K,.(RLS')f] 



Die einzelnen Parameter sollten Ihnen nun schon bekannt sein. Die Konstanten Koh, K<j, Kod, 
Kr und f geben Ihnen einigen Spielraum für Ihre eigenen Experimente. Die Parameter Ih und 
Iq sind Konstanten der Lichtquellen, d, a und b müssen für diese Formeln berechnet werden, 
wobei die Ausdrücke cos(a) und cos(b) wie gezeigt ersetzbar sind durch die Skalarprodukte der 
entsprechenden Einheitsvektoren (ein Einheitsvektor berechnet sich durch den Quotienten aus 
Vektor und Vektorlänge). 

Die angegebenen Formeln beziehen sich lediglich auf eine einzige Lichtquelle. Sind in der Land¬ 
schaft mehrere Lichtquellen vorhanden, so addieren sich die Einzelintensitäten (den Ausdruck 
Ih*Koh dürfen Sie allerdings nur einmal verwenden, da er ja die Hintergrundhelligkeit ermittelt). 




Es wird realistisch 247 


6.3.3 Berechnung des Reflexionsstrahles 

Bei den obigen Ausführungen haben wir bisher stets vorausgesetzt, daß uns die Richtung des 
Reflexionsvektors R bekannt war. Bei der spiegelnden Reflexion und auch bei der totalen 
Spiegelung muß dieser Vektor jedoch erst einmal berechnet werden. Sehen Sie dazu auf die 
beigefügte Skizze (Bild 6.8). 

Voraussetzung ist die Bekanntheit des Normalvektors n in dem Punkt P, in dem sich der Strahl 
L spiegelt. Der Normalvektor ist bekanntlich ein Vektor, der auf der jeweiligen Oberfläche 
eines Gegenstandes senkrecht steht. Seine Berechnung ist natürlich von Oberfläche zu Oberflä¬ 
che verschieden (bei einer Kugel ist es einfach der Radiusvektor zum Spiegelpunkt P, bei einer 
Ebene errechnet er sich aus dem Vektorprodukt zweier auf der Ebene liegenden linear unabhän¬ 
gigen Vektoren). Die Länge von n ist hier unerheblich. Bekannt sind also L (der Vektor zur 
oder von der sich spiegelnden Lichtquelle, die Richtung ist gleichgültig) und n. 

Wie Sie aus der Skizze erkennen können, errechnet sich der Reflexionsvektor R aus: 

R = -L 4- 2*L' 



Bild 6.8: Berechnung des Reflexionsvektors 

L' ist dabei derjenige Vektor, der entsteht, wenn man L parallel auf n projiziert. Seine 
Bestimmung ist nur ein wenig aufwendiger. L' liegt also auf n, ist demnach nur eine Ver¬ 
längerung oder Verkürzung von n: 

L' = k * n 

Der Verlängerungsfaktor k ist die Unbekannte, nach der wir suchen müssen. In der Zeichnung 
erkennen Sie ein rechtwinkliges Dreieck mit den Seiten ILI (Hypotenuse) und IL'I (Kathete) 
und dem Winkel w zwischen diesen Seiten. Gemäß der Definition des Cosinus (s. Anhang) gilt: 

cos(w) = IL'I / iLl <=> 

IL'I = ILI * cos(w) 
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Für D setzen Sie dann bitte die obige Gleichung ein: 

lk*nl = ILI * cos(w) 

<=> 

k«lnl = iLl * cos(w) 

k = iLl/Inl * cos(w) 

<=> 

Schön und gut. Jetzt kennen wir eine Formel für k. Der Winkel w bzw. sein Cosinus cos(w) 
ist uns aber ebenfalls nicht bekannt. Da springt das Skalarprodukt zweier Vektoren helfend ein: 

L*n = lLl*lnl*cos(w) 

<=> 

cos(w) = -- 

lLl*lnl 


Diesen Ausdruck, bei dem nun tatsächlich alles bekannt ist, setzen Sie natürlich bitte schien- 

nigst für cos(w) ein: 


j_ _ ILI * L*n 


Inl ♦ lLl«lnl 


_ L*n 


InP 


und Sie bekommen für L': 


r 1 _ L»n 

liiP 

* ii 


Versuchen Sie nicht, n auf den Bruch zu heben und daraus InP zu machen, um das dann auch 
noch mit dem Nenner zu kürzen. Vergessen Sie nicht, daß die Reihenfolge bei der Skalarmulti¬ 
plikation eingehalten werden muß. Es gilt nämlich normalerweise nicht: (ä*b)*c = ä*(b»c)! 
Schauen Sie dazu vielleicht noch einmal im Anhang nach. 


6.34 Schattenbildung 

Die Berücksichtigung von Schatten, den Körper auf andere Objekte werfen, ist normalerweise 
dem Problem der verdeckten Flächen sehr ähnlich. Schließlich verdecken hier Flächen andere 
Flächen vor der Lichtquelle genauso wie vor dem Beobachter. Entsprechend kompliziert kön¬ 
nen die Lösungen sein, wenn mit mehreren Objekten hantiert wird. Beim Ray-Tracing aller¬ 
dings ist auch hier die Handhabung ein Kinderspiel und kaum ein getrenntes Kapitel wert. 

Das Prinzip ist schnell erklärt: Angenommen, Sie haben bereits den Schnittpunkt des Sicht¬ 
strahles mit einem Objekt in der Welt berechnet. Bilden Sie nun einen zweiten Strahl von diesem 
Punkt zur Lichtquelle (oder zu den Lichtquellen). Mit diesem Strahl verfahren Sie genauso wie 
mit dem Sichtstrahl. Berechnen Sie die Schnittpunkte dieser Gerade mit allen anderen Objek¬ 
ten. Hier brauchen Sie allerdings nur zu prüfen, ob es mindestens ein Objekt gibt, das der Strahl 
schneidet. Gibt es tatsächlich einen Schnittpunkt mit einem anderen Objekt als mit der ange¬ 
steuerten Lichtquelle selbst, dann verdeckt dieses Objekt die Lichtquelle; der Punkt, dessen 
Intensität ermittelt werden soll, steht im Schatten. Er könnte höchstens noch von anderen Licht- 
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quellen angestrahlt werden. Berücksichtigt wurde hierbei nicht, daß ein Objekt auch spiegeln 
könnte, das Licht von einer anderen Lichtquelle also auf den Punkt strahlen könnte. Eine solche 
Betrachtung, die in komplizierten professionellen Programmen durchaus Berücksichtigung fin¬ 
det, werden wir hier der Einfachheit halber nicht vornehmen. 

Normalerweise wäre dieser Punkt schwarz. Da Jedoch eine Hintergrundhelligkeit existiert, 
erhält er trotzdem eine gewisse Intensität. Liegt ein Punkt bezüglich einer Lichtquelle im Schat¬ 
ten, dann fällt der gesamte Ausdruck für diese Lichtquelle, wie wir ihn im vorigen Kapitel abge- 
leitethaben, fortbzw. wirdNull. Was bleibt, ist die besagte Hintergrundhelligkeit und das Licht 
von eventuell anderen Lichtquellen. 

Die Tatsache, daß ein Objekt andere Objekte vor einer Lichtquelle abschirmen kann, können 
wir uns zunutze machen, indem wir z.B. an einer oder mehreren Seiten der Lichtquelle 
undurchsichtige Ebenen anbringen, die den Strahl des Lichtes eingrenzen. Dadurch wären bei¬ 
spielsweise Punktstrahler zu simulieren, die nur ganz bestimmte Bereiche eines Zimmers oder 
einer Landschaft beleuchten. 

64 Das Programm 

Endlich sind wir soweit. Endlich hat die graue Theorie ein Ende. Endlich können wir alles 
Gelernte direkt am Bildschirm ausprobieren. Vorhang auf für das sagenumwobene Ray- 
Tracing-Programm, natürlich in C. Bitte schön! 




/*# »X/ 

/*¥; Computer und Realität **/ 

3-D-RAY-TRACING »*/ 

/X* **/ 

/¥:^ mit **/ 

/** mehreren Lichtquellen, **/ 

/** diffuser und spiegelnder xx/ 
/»* Reflexion, **/ 

/** Totalverspiegelung *x/ 

/»» und Schattenbildung *»/ 

/** **/ 

/** Organisation: **/ 

/** objektorientiertes **/ 

/** Volumenmodell **/ 
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# include < exec/types .h> 

#include < Intuition/Intuition.h> 

# Include <librarles/mathffp.h> 

/* Funktionsdeklarationen (nur für Aztek-Compiler): */ 
/* wahlweise auch: #include <functlons.h> */ 


VOID 


ClearScreenO; 

VOID 


CloseO; 

VOID 


Exit(); 

struct 

Message x 

GetMsgO; 

UWORD 


GetRGB4(); 

LONG 


IoErr(); 

VOID 


Move(); 

struct 

FileHandle x 

OpenO; 

struct 

Library x 

OpenLibraryO; 

struct 

Screen x 

OpenScreen(); 

struct 

Window X 

OpenWindow(); 

VOID 


ReplyMsgO; 

VOID 


SetAPenO; 

VOID 


SetRGB40; 

LONG 


WaitO; 

LONG 


WriteO; 

VOID 


WritePixel(); 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
#define WURZEL SPSqrt 


#deflne SIN SPSin 

#deflne COS SPCos 

# define TAN SPTan 

# define LOG SPLog 

# define EXP SPExp 


#define M0DE_NEWFILE 1006L 

struct IntuitlonBase xIntuitionBase; 
struct GfxBase xGfxBase; 

LONG xMathBase; 

LONG xMathTransBase; 
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/* Hardware-Konstanten: 


# define 

ANZ_FARBEN 

64 


Anzahl der versch. Farben 


# define 

ANZ_EBENEN 

6 


Anzahl der Färbebenen 


#define 

ANZ_INT 

16 

/* 

Anzahl d. Intensitätsstufen x/ 

# define 

)e_AUFL 

320 


Hardware-x-Auflösung 


# define 

Y_AUFL 

256 

/* 

Hardware-y-Auflösung 

*/ 

# define 

G_M0D EXTRA_HALFBRITE /x 

Grafik-Modus 

*/ 

# define 

ANZ_PAL_FAB 

32 

/* 

Anzahl der Palettenreg. 

*/ 


/* Hier die Einstellungen für 32 Farben: */ 
/* (Zusätzlich sollten dann noch die */ 
/* Palettenfarben (s.u.) geändert werden) */ 


/* 

# define 

ANZ_FARBEN 

32 

*/ 

/* 

Anzahl der versch. Farben 


/* 

# define 

ANZ EBENEN 

5 



Anzahl der Farbebenen 

*/ 

/* 

# define 

ANZ_INT 

16 

*/ 

/‘k 

Anzahl d. Intensitätsstufen 

*/ 

/* 

# define 

X_AUFL 

320 

*/ 

/» 

Hardware-x-Auflösung 


/* 

#define 

Y_AUFL 

256 

*/ 

/» 

Hardware-y-Auflösung 

*/ 


#define 

G_M0D 

NULL 


/* 

Grafik-Modus 


h 

oder: x/ 







/* 

#define 

G_M0D 

LAGE 


/* 

für den Interlace-Modus 


/* 

# define 

ANZ_PAL_FAB 

32 


/* 

Anzahl der Palettenreg. 



/* Struktur für neuen Bildschirm initialisieren: */ 

struct NewScreen NeuerBildschirm = 


0, 

/* 


/k 

0, 

/k 


/k 

X_AUFL, 

/* 

Y_AUFL, 

/* 

ANZ_EBENEN, 

/* 

32, 

/* 

1, 

/* 

G_M0D, 


CUSTOMSCREEN, 


NULL, 

/* 

"Ray-Traclng-Demo", 

/* 

NULL, 

/* 

NULL, 

/* 


x-Koord. linke obere */ 
Ecke (immer 0) */ 
y-Koord. linke obere ¥:/ 
Ecke */ 
Bildschirmbreite */ 
Bildschirmhöhe */ 
Bildebenenzahl */ 
Farbe der Details */ 
Farbe der Flächen */ 
Grafikmodus */ 
Bildschirmtyp */ 
kein neuer Font */ 
Text im Bildschirm-Kopf x/ 
unbenutzt, immer NULL x/ 
keine eigene BitMap x/ 
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/* Struktur für neues Fenster Initialisieren: */ 

struct NewWindow NeuesFenster = 


0, 

/* 

10, 

/* 

X_AUFL, 

/* 

Y_AUFL-10, 

/* 

32, 

/* 

1, 

/* 

MOUSEBUTTONS 1 

/* 

RAWKEY, 


ACTIVATE 1 


BORDERLESS 1 


NOCAREREFRESH 1 


RMBTRAP, 

/» 

NULL, 

/* 

NULL, 

/* 

NULL, 

/* 

0, 



/* 


/* 


/* 



NULL, 


X_AUFL, 


Y_AUFL-10, 

/* 

X_AUFL, 

/* 

Y_AUFL, 


CUSTOMSCREEN, 

/* 


x-Koord. linke ob. Ecke */ 
y-Koord. linke ob. Ecke */ 
Fensterbreite */ 
Fensterhöhe tk/ 
Farbe der Details */ 
Farbe der Flächen */ 
Rückmeldg. b. Mausknopf */ 
und Taste */ 
Fensterelemente und -typ*/ 
wählen: Randlos, */ 
keine Refresh-Meldungen */ 
keine Menüoperationen */ 
keine eigenen Gadgets */ 
CheckMark */ 
Text im Fenster-Kopf */ 
Adresse Screen-Struktur */ 
Muß innerhalb des */ 
Programmes nach dem */ 
Öffnen eines Screens */ 
initialisiert werden */ 
kein SuperBitmap-Fenster*/ 
Mindestbreite */ 
Mindesthöhe */ 
Maximalbreite */ 
Maximalhöhe */ 
Bildschirmtyp */ 


struct Screen ^Bildschirm; 
struct Window *Fenster; 
struct RastPort »RastPort; 
struct IntulMessage *Message; 


VOID malnO 


LONG do_program(); 
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LONG fehler; /* Für die Typ-Abkürzungen s. unter */ 

/¥: Exec-Include-Flle: types.h */ 

/* Öffnen der Intuition-, Graphics-, Mathe-Bibliotheken ¥:/ 

prlntf("Ray-Tracing / C-Demo\n"); 

IntultlonBase = 

(struct IntultlonBase *)OpenLibrary("Intuition.library",OL); 
If (IntultlonBase == NULL) fehler = 1; 

eise 

[ 

GfxBase = 

(struct GfxBase »)OpenLlbrary("graphics.library",OL); 

If (GfxBase == NULL) fehler = 2; 

eise 

[ 

MathBase = 

(LONG *)OpenLibrary("raathffp.llbrary",OL); 
if (MathBase == NULL) fehler = 3; 

eise 

[ 

MathTransBase = 

(LONG *)OpenLlbrary("mathtrans.llbrary", OL); 
if (MathTransBase == NULL) 

[ 

printf("Keine MathTrans-Library vorhanden!\n"); 
fehler = 4; 

] 

eise 

1 

/* Bildschirm öffnen: »/ 

Bildschirm = 

(struct Screen ^t)OpenScreen(&NeuerBildschirm); 
if (Bildschirm == NULL) fehler = 5; 

eise 

[ 

/* Fenster öffnen: */ 

/* Adresse der Screen-Struktur nachtragen: */ 

NeuesFenster.Screen = Bildschirm; 

Fenster = 

(struct Window *)OpenWindow(&NeuesFenster); 
if (Fenster == NULL) fehler = 6; 

eise 
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RastPort = Fenster->RPort 

; /* RastPort merken 


Move(RastPort, OL, OL); 
ClearScreen(RastPort); 

/* Bildschirm löschen 

*/ 

fehler = do_program(); 

/X eigentliches Pro- 

*/ 


/* gramm aufrufen 

*/ 

CloseWlndow(Fenster); 

1 

/* Fenster schließen 

*/ 

J 

CloseScreen(Bildschlrm ); 

} 

/* Screen schließen 


1 

CloseLlbrary(MathTransBase); 

/* Mathe-Library dose 

»/ 

j 

CloseLlbrary(MathBase); 

1 

/* Mathe-Library dose 


CloseLibrary(GfxBase); 

/* Graphics-Lib. dose 


j 

CloseLibrary(IntuitionBase); 

] 

Exit(fehler); 

/* Intultlon-Llb. dose 

*/ 

/* Ausgang m. Fehlercode 



/# Hauptprogreimm */ 

/* Defines und Makros: */ 

/* Ermitteln des Maximums/Minimums zweier Werte: */ 
#define MAX(a,b) ( (a) > (b) ? (a) : (b) ) 

#define MIN(a,b) ( (a) < (b) ? (a) : (b) ) 

Ermitteln des Absolutwertes einer Zahl: »/ 
#deflne ABS(a) ( (a) < 0 ? -(a) : (a) ) 

Ermitteln der Potenz a"b: »/ 

/* nach p=a"b < = > p=e''(bitln(a)) =k/ 

#deflne P0TENZ(a,b) (EXP( (b)*L0G(a) )) 

/» Vektoroperationen als Macros: */ 

/* a, b, c müssen Vektornamen sein! */ 



Es wird realistisch 255 


/* Zuweisen eines Vektors: a=b: ¥:/ 

#define VEKLET(a,b) [a[0]=(b[0]); a[l]=(b[l]); a[2]=(b[2]);] 

/* Zuweisen eines Farbarrays: a=b »/ 

# define COLLET VEKLET 

Vektoraddition c=a+b zweier Vektoren: */ 

#define VEKADD(c,a,b) [c[0] = (a[0]) + (b[0]);\ 

c[l] = (a[l]) + (b[l]);\ 

c[2] = (a[2]) + (b[2]);j 

/* Vektorsubtraktion c=a-b zweier Vektoren: */ 

#define VEKSUB(c,a,b) [c[0] = (a[0]) - (b[0]);\ 

c[l] = (a[l]) - (b[l]);\ 

c[2] = (a[2]) - (b[2]);] 


/* Multiplikation b=z*a eines Vektors mit einer Zahl: */ 
#define MULVEK(b,z,a) [b[0] = (z) * (a[0]);\ 

b[l] = (z) (a[l]);\ 

b[2] = (z) * (a[2]);] 

/* Skalarprodukt a*b zweier Vektoren: */ 

#define SKAPRD(a,b) ( (a[0])*(b[0]) +\ 

(a[l])*(b[l]) +\ 

(a[2])*(b[2]) ) 

/* Vektorprodukt c=axb zweier Vektoren: */ 

#define VEKPRD(c,a,b) [c[0] = (a[l])»(b[2]) - (a[2])*(b[l]);\ 

c[l] = (a[2])it(b[0]) - (a[0])*(b[2]);\ 

c[2] = (a[0])*(b[l]) - (a[l])x(b[0]);] 

/* Ermittlung der Geradengleichung P = PO + s*a */ 


/* in der Struktur struct gerade g */ 

/* aus zwei Punkten b und c: P0=b, a=b-c 
/* Damit ist die Spitze des Richtungsvektors */ 
/* gleichzeitig Fixpunkt der Gerade */ 


#define GET_GERADE(g,b,c) [VEKLET(g.pO,b); VEKSUB(g.a,b,c);] 


/* Berechnung eines Punktes aus der */ 
/» vektoriellen Geradengleichung: */ 
/* P = PO + s*a »/ 
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#define GERADEN_PKT(P,PO,s,a) [P[0] = (P0[0]) + (s)^t(a[0]) ;\ 

P[l] = (P0[1]) + (s)^f(a[l]);\ 
P[2] = (P0[2]) + (s)jf(a[2]);] 


/» Berechnung der Länge eines Vektors a: tk/ 
#define VEK_LAENGE(a) (WURZEL(SKAPRD(a,a))) 


/* Objektkennziffern (Typen):*/ 

# define HINTERGRUND 0 

# define LICHTQUELLE 1 

#define KUGEL 2 

#define FLAECHE 3 

/* Lichtoperationstypen: */ 

# define NORMAL 0 

# define VERSPIEGELT 1 

#define DURCHSICHTIG 2 

/* sonstige Parameter: */ 

#define REKUR_MAX 7 /* Max. Zahl Rekursionen */ 

#define UNENDLICH l.OelO /* Ferne */ 

#define SCHWARZ 0.10 /* Lichtgrenze */ 

#define MINI_S 0.0001 /* kleinstes erlaubtes s */ 

/* (fast 0 wegen Rechen- */ 
/* Ungenauigkeit!) */ 


/* Globale Variablen und Strukturen: */ 
/**************************************/ 

/* Einzelner Objekt-Punkt: */ 
struct punkt 


FLOAT 

pos[3]; 

/* 

Position des Punktes 


FLOAT 

s; 

/* 

s-Wert f. Geradengleichg.*/ 

FLOAT 

färbe[3]; 

/* 

Farbe 


FLOAT 

intens_b[3]; 

/» 

RGB-Intensitätsbeiwert 

*/ 

FLOAT 

user0[3]; 


sonstige Werte 


FLOAT 

userl; 




FLOAT 

user2; 
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/* Geradenparameter nach P = PO + s^(a: #/ 
struct gerade 


FLOAT 

p0[3]; 


Fixpunkt PO 

*/ 

FLOAT 

]; 

a[3]; 


Richtungsvektor a 

*/ 

/* Ebenenparameter nach P 

= PO + s*a + t*b: */ 


struct ebene 

f 




l 

FLOAT 

P0[3]; 


Fixpunkt PO 


FLOAT 

a[3]; 

/* 

Richtungsvektor a 


FLOAT 

b[3]; 

/* 

Richtungsvektor b 


BOOL 

n_valid; 

/* 

Flag: TRUE => Normalen¬ 




/» 

vektor n vorhanden 





FALSE => n Ist 





nicht vorhanden 


FLOAT 

]; 

n[3]; 


Normalenvektor v. Ebene 


/* Materialkonstanten für 

ein 

Objekt: 


struct material 

f 




l 

FLOAT 

färbe[3]; 

/* 

RGB-Farbe des Objektes 

*/ 

FLOAT 

farbe2[3]; 

/* 

evt. Zweitfarbe 


FLOAT 

farbe3[3]; 

/* 

evt. Drittfärbe 





übernehmen die Rolle von 




/* 

Konstanten Koh und Kod 


FLOAT 

spleg_ref[3]; 

/* 

Konstante zur spiegeln¬ 

V 




den Reflexion Kr 


FLOAT 

fokus_ref[3]; 

/* 

Fokussierung der spie¬ 




/* 

gelnden Reflexion f 

*/ 

FLOAT 

spiegel_int[3] 

;/* 

Intensität des gespie¬ 




/* 

gelten Lichtes 


BYTE 

licht_typ; 

/* 

Lichtoperationstyp: 




/* 

=0: Normal 




/* 

=1: Total Verspiegelt 




/* 

=2: durchsichtig 


BYTE 

oberf_typ; 

/* 

Oberflächentyp 




/» 

=0: Normal, einfarbig 





=1: z.B. Karos 




/* 

=2: z.B. Muster 


Union 


/* 

Individuelle Parameter 



[ 


struct 
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WORD anz_k,anz_m; 

/* Anzahl Muster in k/m-Rtg.*/ 

WORD muster[l6]; 

) muster; 

/» Musterdefinition 


struct 




/¥: oder Integer-Tripel 



WORD userl[3]; 

WORD user2[3]; 

WORD user3[3]; 

] lnt_user; 
struct 

[ /* oder Float-Trlpel tt/ 

FLOAT userl[3]; 

FLOAT user2[3]; 

FLOAT user3[3]; 

] float_user; 
j user; 

]; 

/* Hintergrund im "Unendlichen": */ 
struct hintergrund 
[ 


WORD 

typ; 


Typ für Hintergrund: 0 

5t/ 

FLOAT 

unendlich; 

/* 

Wert für die Position 

»/ 

FLOAT 

farbel[3]; 

/* 

Farbe 1 

*/ 

FLOAT 

farbe2[3]; 


Farbe 2 

5t/ 

/* Lichtquelle: */ 





struct lichtquelle 


WORD 

typ; 

/5t 

Typ für Lichtquelle: 1 

5t/ 

FLOAT 

pos[3]; 

/5t 

Position der Lichtquelle */ 

FLOAT 

radius; 

/5t 

Radius 

5t/ 

FLOAT 

färbe[3]; 

/5t 

Farbe des Lichts 

5t/ 

FLOAT 

dlst_konst; 

/5t 

Distanzkonstante Kd 

5t/ 


]; 


/* Kugel: */ 
struct kugel 
( 

WORD typ; 



/* Typ für Kugel: 2 

5t/ 

FLOAT pos[3]; 

/* Position Mittelpunkt 

5t/ 

FLOAT radius; 

/* Radius 

5t/ 


struct material material; /» Materialkonstanten */ 
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/* Fläche (Parallelogramm): */ 
struct flaeche 


WORD 

typ; 

/* Typ für Fläche: 3 

*/ 

FLOAT 

pl[3],p2[3]. 

/* drei Eckpunkte 



1—1 



struct 

ebene ebene; 

/X Ebenenparameter mit 




/X Normalenvektor! 

*/ 

struct 

material material; /x Materialkonstanten 

*/ 


/¥: Beobachter: 
struct beobachter 


FLOAT 

pos[3]; 

/* 

FLOAT 

bllckp[3]; 

/* 

FLOAT 

blickvek[3]; 

/* 



/* 



/* 



/* 

FLOAT 

mattsch; 

/* 

FLOAT 

x_punktgr; 

/* 

FLOAT 

y_punktgr; 

/* 

LONG 

x_aufl; 

/* 

LONG 

y_aufl; 

/* 

FLOAT 

x_winkel; 

/* 


Position des Beobachters »/ 
Punkt, auf den er schaut ¥:/ 
alternativ: Blickvektor */ 
ist der Blickvektor 0, */ 
dann wird der Blickpunkt */ 
verwendet */ 
Abstand zur Mattscheibe */ 
Punktbreite */ 
Punkthöhe */ 
x-Auflösung */ 
y-Auflösung »/ 
horizontaler Sichtwinkel x/ 


/* später zu berechnende Variablen: */ 


FLOAT 

bllckv[3]; 


Blickvektor mit Länge 

*/ 

FLOAT 

x_step[3]; 

/* Beobachter -> Mattscheibe^/ 
/* x-Schrittweitenvektor */ 

FLOAT 

]; 

y_step[3]; 


y-Schrittweitenvektor 


/* Die ganze Welt: 5^/ 
struct weit 

[ 

WORD anz_obj; 


/* Anzahl aller Objekte 

*/ 

WORD 

anz_kugeln; 


/5t Anzahl aller Kugeln 


struct kugel 5tkugeln; 


/5t Alle Kugeln 


WORD 

anz_flaech; 


/5t Anzahl aller Flächen 


struct 

flaeche xflaech; 


/5t Alle Flächen 

*/ 

WORD 

anz_licht; 


/5t Anzahl aller Lichter 

*/ 

struct 

lichtquelle *llcht; 

/5t Alle Lichtquellen 

»/ 

WORD 

anz_hinten; 


/5t Anzahl Hintergründe=: 

1 5t/ 
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struct hintergrund »hinten;/it Die Weite, das Nichts »/ 
FLOAT hintlicht[3]; /» Untergrundbeleuchtung Ih »/ 

]; 


/» Globale Variablen: »/ 


FLOAT 

sch_p[3]; 

/* 

aktueller Schnittpunkt 

*/ 

FLOAT 

sch_m, sch_k; 

/* 

Verlängerungsfakt. Ebene 


WORD 

*z_objekt; 

/* 

Zwischenvar. f. Objekt 


WORD 

rekur_zaehl; 

/* 

Rekursionszähler 



/» RAW-Tastencodes definieren: »/ 
#define ESC 0x45 

# define TAS_S 0x21 


LONG do_program() 

[ 

VOID lnit_welt(), 

lnlt_farben(), 
get_konst(), 
get_puhkt(), 
ray_trace(), 
plotO, 
save_iff(); 

USHORT tasteO; 


USHORT Code = 0; 


struct punkt 

punkt; 

/» Objektpunkt 


struct gerade 

strahl; 

/* Sichtstrahl 


struct weit 

weit; 

/» Weltstruktur 

*/ 

struct beobachter 

beo; 

/* Beobachterstruktur 

*/ 

LONG xa, ya; 


/» halbe Auflösungen 


REGISTER LONG x, 

y; 

/» Schleifenindizes 

*/ 

FLOAT akt_punkt[3]; 

/» Mattscheibenpunkt 



init_welt(8cwelt, &beo); /» Datenstrukturen initialisieren »/ 

*/ 


lnlt_farben(); 


/» Initialisiere Farbpalette 
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/X Schrittweiten und Sichtvektor berechnen: */ 
get_konst(&beo); 

rekur_zaehl =0; /x Rekurslonszähler auf Null x/ 


/X Hauptschleifen: x/ 

/xxxxxxxxxxxxxxxxxxx/ 

for (y = -(ya = beo.y_aufl/2); y<=ya & code!=ESC; y++) 

for (x = -(xa = beo.x_aufl/2); x<=xa & code!=ESC; x++) 

[ 

/X Berechne eiktuellen Mattscheibenpunkt: x/ 
get_punkt(&beo, x, y, &akt_punkt[0]); 

/X Ermittle Geradengleichung des Sichtstrahles x/ 

/X mit Mattscheibenpunkt als Fixpunkt: x/ 

GET_GERADE(strahl, akt_punkt, beo.pos); 

punkt.lntens_b[0] = /x Intensitätsbeizahl Inltlalls. x/ 
punkt.lntens_b[1] = 
punkt.lntens_b[2] = 1.0; 

punkt.farbe[0] = /x Punkt-Farbwert auf Null setzen x/ 
-punkt.färbe[1] = 
punkt.färbe[2] = 0.0; 

/X Hier beginnt das Ray-Tracing (Strahlverfolgung) x/ 

/X Ermittlung der Punktfarbe: x/ 

ray_trace(8cwelt, &strahl, &punkt); 

/X Zeichne Punkt in der ermittelten Farbe: x/ 
plot(xa+x, ya-y, Scpunkt); 

/X Auf Taste testen: x/ 

Code = taste(); 

] 

] 

/X Auf ESC warten: x/ 
while (code != ESC) 


/X Auf Message warten: x/ 

Wait(lL << Fenster->User-Port->mp_SlgBit); 
Code = tasteO; 
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if (code == TAS_S) /* bei "s": */ 

save_iff(); /* Bild im IFF-Format abspeichern */ 

] 

return ((LONG)TRUE); 


/* Auf Taste testen: */ 

USHORT taste 0 

[ 

ULONG dass; /* Speicher für die Intuition- */ 

USHORT Code, quallfler; /* Message-Struktur */ 

APTR address; 

SHORT mouse_x, mouse_y; 

Code = 0; 

/¥; Meldungen abarbeiten: »/ 

whlle (code != ESC && 

(Message = 

(struct IntuiMessage *)GetMsg(Fenster->User-Port)) ) 

[ 

/* Daten aus Message-Struktur lesen: 
dass = Message->Class; 

Code = Message->Code; 

quallfler = Message->Quallfier; 
address = Message->lAddress; 

mouse_x = Message->MouseX; 

raouse_y = Message->MouseY; 

ReplyMsg(Message); /* Message zurückgeben */ 

] 

return (code); 


/* Speichere gesamtes Bild im IFF-Format */ 
/* unter dem Namen: "Ray_Trace.pic" in */ 


/* das aktuelle Directory */ 
A Vorsicht! Eine bereits vorhandene »/ 
/* Datei mit dem gleichen Namen wird »/ 
/* überschrieben!!! */ 



Es wird realistisch 263 


VOID save_lff() 


LONG 

1, row; 




UWORD 

anz_farben; 




UWORD 

färbe; 




ULONG 

laenge; 




LONG 

longword; 

/* 

Datenspeicher 

*/ 

WORD 

Word; 




BYTE 

byte; 




BYTE 

*BitPlanes[8]; 

/* 

Zeiger auf maximal 

8 Bitplanes */ 


struct BitMap »BitMap; 
struct ColorMap *ColorMap; 
struct FileHandle itFileHandle; 


/* File öffnen: */ 

FileHandle = Open("Ray_Trace.pic",(LONG)MODE_NEWFILE); 


if (FileHandle == 0) 

[ 

printf("Fehler heim Öffnen der Bilddatei! Fehlernummer: ^ld\n" 

,IoErr()); 


return; 


BitMap = RastPort->BitMap; /* Pointer auf BltMap-Struktur */ 

/* Zeiger auf BltPlanes ermitteln: */ 
for (1=0; i<BitMap->Depth; 1++) 

BltPlanes[l] = (BYTE *)BltMap->Planes[i] - BitMap->BytesPerRow; 


ColorMap = Bildschirm->ViewPort.ColorMap; 


anz_farben = ColorMap->Count; 

/* IFF-Header: */ 

Wrlte(FileHandle, "FORM", 4L); 
laenge = 60 + 3*anz_farben + 

BitMap->BytesPerRow * 
Wrlte(FileHandle, &laenge, 4L); 
Wrlte(FileHandle, "ILBM", 4L); 

Bitmap-Header: */ 

Write(FileHandle, "BMHD", 4L); 
laenge = 20; 


/* "FORM" als Einleiter */ 

BitMap->Rows * BitMap->Depth; 
/* Länge des Files */ 

/* "ILBM" als Einleiter */ 


/tt "BMHD" als Einleiter 
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Write(FlleHandle, &laenge, 4L); /¥: Länge des BMHD */ 

Word = BltMap->BytesPerRow x 8; /x Punkte pro Zeile x/ 
Wrlte(FlleHandle, &word, 2L); 

Wrlte(FlleHandle, &BitMap->Rows, 2L); /x Punkte pro Spalte x/ 
longword = Byte = 0; 

Write(FileHandle, Sclongword, 4L); 

Write(FileHandle, &BltMap->Depth, IL); /x Plane-Tiefe x/ 

Write(FileHandle, &byte, IL); 

Write(FileHandle, Sclongword, 4L); 

Byte =10; /x x-/y-Verhältnis x/ 

Write(FileHandle, &Byte, IL); 

Byte = 11; 

Write(FileHandle, &Byte, IL); 

Write(FlleHandle, &word, 2L); 

Write(FileHandle, 8cBitMap->Rows, 2L); 

/X View-Modes: x/ 

Write(FileHandle, "CAMG", 4L); /x "CAMG" als Einleiter x/ 

longword = 4L; /x Länge x/ 

Wrlte(FlleHandle, &longword, 4L); 
longword = Blldschirm->ViewPort.Modes; 

Write(FlleHandle, Sclongword, 4L); 

/X Color-Map: x/ 

Write(FileHandle, "CMAP", 4L); /x "CMAP" als Einleiter x/ 

longword = anz_farBen x 3; /x Länge der FarBdefInitlon x/ 

Wrlte(FileHandle, Sclongword, 4L); 

/X Farben speichern: x/ 
for (1=0; i<anz_farben; 1++) 


färbe = GetRGB4(ColorMap, 1); 




Byte = ((färbe Sc OxfOO) >> 4); 
Write(FlleHandle, Scbyte, IL); 

/X Rot-Anteil x 

: 16 

*/ 

Byte = (färbe Sc OxOfO); 
Wrlte(FileHandle, Scbyte, IL); 

/X Grün-Anteil 

X 16 

*/ 

byte = (färbe Sc OxOOf) < < 4; 
Wrlte(FlleHandle, Scbyte, IL); 

/X Blau-Anteil 

X 16 



/X Grafikdaten: x/ 

Wrlte(FileHandle, "BODY", 4L); /x "BODY" als Einleiter x/ 
laenge = BltMap->BytesPerRow x BitMap->Rows x BitMap->Depth; 
Write(FlleHandle, Sclaenge, 4L); 
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for (row=0; row<BltMap->Rows; row++) 
for (1=0; i<BltMap->Depth; 1++) 

Wrlte(FileHandle, BltPlanes[l] += BitMap->BytesPerRow, 
(LONG)BitMap->BytesPerRow); 

Close(FileHandle); Datei schließen */ 


/* Berechne Schrittweiten für Mattscheibe */ 

/» und den Sichtvektor s: */ 

VOID get_konst(beo) 

struct beobachter *beo; /* Zeiger auf Beobachterstruktur */ 

[ 

FLOAT zahl; 

FLOAT l_xe; 

FLOAT Vektor[3]; 

REGISTER WORD x_z, z_x, y_z, z_y; 

/* Ermittlung des Sichtvektors s zur Mattscheibe nach: */ 

A s = Isl/IZ-BI » (Z-B) */ 

/* Speicherung von s in Beobachter-Struktur */ 

Verlängerten Blickvektor ermitteln, tt/ 

/* Falls schon angegeben, übertragen: */ 

If (beo->bllckvek[0] I I beo->blickvek[l] I I beo->blickvek[2]) 

[ 

VEKLET(Vektor, beo->bllckvek); /» Blickvektor */ 

] 

eise 

[ 

VEKSUB(Vektor, beo->bllckp, beo->pos); /* Z-B »/ 


zahl = beo->mattsch / VEK_LAENGE(vektor); /x Quotient x/ 
MULVEK(beo->blickv, zahl, vektor); /x s x/ 


/X Berechnung der Schrittweiten: x/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/X Länge des Einheitsvektors Ixel berechnen: x/ 
l_xe = 2 X TAN(beo->x_winkel / 2) x beo->mattsch / 
(beo->x_aufl x beo->x_punktgr); 
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/* Berechnung von x_step nach; */ 

/X x_step = xpg * xe (s. Buch) x/ 

/» y-Koordinate von x_step berechnen: */ 
beo->x_step[l] =0; /x wegen xey = 0 x/ 

if (beo->blickv[0] != 0 II 

beo->bllckv[2] != 0) /x sx=0 und sz=0 ? x/ 

[ /X Nein: => Fälle 1/2: x/ 

if (beo->blickv[0] != 0) /x sx<>0 ? x/ 

[ /X Ja: => Fall 1; x/ 
x_z = 0; 
z_x = 2; 

] 

eise 

[ /X Nein: => Fall 2: x/ 
x_z = 2 ; 
z_x = 0; 


/X z_x-Koordlnate von x_step berechnen: x/ 

/X sz/sx bzw. sx/sz: x/ 

zahl = beo->bllckv[z_x] / beo->bllckv[x_z]; 

beo->x_step[z_x] = WURZEL(l_xexl_xe / (l + zahlxzahl)); 

/X x_z-Koordlnate von x_step berechnen: x/ 

/X -xezxsz/sx bzw. -xexxsx/sz x/ 

beo->x^step[x_z] = -beo->x_step[z_x] x zahl; 

] 

eise 

[ /X Ja => Fall 3: */ 
beo->x_step[2] = 0; 
beo->x_step[0] = l_xe; 


/X mit Punktgröße multiplizieren: x/ 
MULVEK(beo->x_step, beo->x_punktgr, beo->x_step); 


/X Berechnung von y_step nach: x/ 
/X y_step = ypg x ye (s. Buch) x/ 
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/* x-Koordinate von y_step berechnen: 
beo->y_step[0] = Oj /» wegen yex = 0 */ 

If (beo->bllckv[l] != 0 II 

beo->blickv[2] != 0) /* sy=0 und sz=0 ? *:/ 

[ /* Nein: => Fälle 1/2: */ 

If (beo->blickv[l] != 0) /* sy<>0 ? */ 

[ /X Ja: => Fall 1: n/ 
y-z = 1; 
z_y = 2; 

] 

eise 

[ /* Nein: => Fall 2: */ 

y_z = 2; 
z_y = 1; 

] 


/* z_y-Koordinate von y_step berechnen: */ 

/¥; sz/sy bzw. sy/sz: */ 

zahl = beo->blickv[z_y] / beo->blickv[y_z]; 

beo->y_step[z_y] = WURZEL(l_xej(l_xe / (1 + zahl*zahl)); 

/* y_z-Koordinate von y_step berechnen: */ 

/* -yez^tsz/sy bzw. -yey*sy/sz */ 

beo->y_step[y_z] = -beo->y_step[z_y] * zahl; 

] 

eise 

[ /» Ja => Fall 3: */ 

beo->y_step[2] = 0; 
beo->y_step[0] = l_xe; 


/* mit Punktgröße multiplizieren: »/ 
MULVEK(beo->y_step, beo->y_punktgr, beo->y_step); 


/* Berechne die Koordinaten des */ 

/* aktuellen Mattscheibenpunktes */ 

VOID get_punkt(beo, x, y, punkt) 

struct beobachten ^f-beo; /* Zeiger auf Beobachterstruktur */ 

LONG X, y; /* Bildschirmkoordinaten */ 

FLOAT *punkt; 
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REGISTER WORD xyz; 


/* Berechnung nach: P = B + s + x»xpg*xe + y^^ypgitye 
/* wobei xpg*xe bzw. ypg^ye die Schrittweiten sind */ 


for (xyz=0; xyz<3; xyz++) 

punkt[xyz] = beo->bllckv[xyz] + beo->pos[xyz] + 

x*beo->x_step[xyz] + y*beo->y_step[xyz]; 


/* Die große Ray-Tracing-Routine: */ 

/* Feststellung der Farbe des »/ 

/* nächsten Objektes auf dem */ 

/* Sichtstrahl */ 

VOID ray_trace(welt, strahl, punkt) 
struct weit »weit; /» Zeiger auf Weltstruktur »/ 

struct gerade »strahl; /» Zeiger auf Sichtstrahl »/ 

struct punkt »punkt; /» Zeiger auf Punktstrukt. »/ 

[ 

WORD schnltt_obj s(); 

VOID hintergrundfarbe(), 

llchtfarbeO, 
kugelfarbeO, 
flaechenfarbe(); 

REGISTER WORD obj_typ; /» geschnittener Objekttyp »/ 

WORD »Objekt; /» Zeiger auf erstes Element »/ 

/» einer Objektstruktur »/ 

/» Schnittpunkt des Strahles mit nächstem »/ 

/» Objekt ermitteln: »/ 

obj_typ = 

schnltt_objs(welt, punkt, strahl, Scobjekt); 

/» Ermittle Objektfarbe: »/ 

switch (obj_typ) 

[ 

case HINTERGRUND: /» kein Objekt geschnitten »/ 

hlntergrundfarbe(welt, punkt); 
break; 
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case LICHTQUELLE: /* wir sehen ein Licht! */ 

lichtfarbe(welt, Objekt, punkt); 
break; 

case KUGEL: /* wir sehen auf eine Kugel */ 

kugelfarbe(welt, Objekt, strahl, punkt); 
break; 

case FLAECHE: /* wir sehen auf eine Fläche */ 

flaechenfarbe(welt, Objekt, strahl, punkt); 
break; 

] 

] 

/* Ermitteln des nächsten Schnittpunktes einer */ 


/* Geraden (Strahl) mit allen Objekten: */ 
/* Return-Wert: geschnittener Objekttyp */ 
/* ln "Objekt": Zeiger auf Objektstruktur */ 
/* des geschnittenen Objektes */ 


WORD schnltt_objs(welt, punkt, strahl, Objekt) 


struct weit 

«weit; 

/* 

Zeiger auf Weltstruktur 


struct punkt 

punkt; 


Zeiger auf Punktstruktur 

*/ 

struct gerade 

^fstrahl; 

/» 

Zeiger auf Strahl 

»/ 


WORD **objekt; /» Zeiger auf Zeiger auf erstes */ 

/* Element einer Objektstruktur */ 

[ 

BOOL schnitt_kugel_a(), 

schnitt_flaech(); 

REGISTER WORD i; 

WORD anzahl; 

FLOAT sjiin, s; /* kleinstes s und s */ 

WORD *obj; /* Zeiger auf 1. Objektstrukturelement */ 

s_mln = UNENDLICH; /* Minimum initialisieren */ 

/* Schnittpunkte mit Lichtquellen? */ 

/******ti**¥:*****¥:*¥:*¥:*******¥:^**^*¥:M:/ 

anzahl = welt->anz_licht; /* Anzahl Lichtquellen »/ 

for (1=0; i< anzahl; i-H-) 

[ 

/» Berechne Schnittpunkt mit Lichtkugel */ 
if (schnitt_Jcugel_a(obj = (W0RD *)&welt->licht[i], strahl, 8is)) 
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/* Schnittpunkt existiert 
if (s < sjiln) 

[ 

s_mln = s; 

*obj ekt = obj; 


/* Schnittpunkte mit Kugeln? */ 

anzahl = welt->anz_kugeln; /* Anzahl Kugeln */ 

for (1=0; 1<anzahl; i++) 

[ 

/* Berechne Schnittpunkt mit Kugel »/ 

If (schnitt_kugel_a(obj = (WORD *)8cwelt->kugeln[i], strahl, 8es)) 

[ 

/* Schnittpunkt existiert: */ 
if (s < s_mln) 

[ 

s_min = s; /* neues Minimum */ 

itobj ekt = obj; Obj ektstruktur merken */ 

] 

] 

] 

/* Schnittpunkte mit Flächen? */ 

anzahl = welt->anz_flaech; /* Anzahl Flächen »/ 

for (i=0; 1<anzahl; 1++) 

[ 

/* Berechne Schnittpunkt mit Fläche: */ 
if (schnitt_flaech(obj = (WORD *)&welt-> flaech[l], strahl, 8es)) 

[ 

/* Schnittpunkt existiert: */ 
if (s < s_mln) 

[ 

s_min = s; /* neues Minimum */ 

»Objekt = obj; /» Objektstruktur merken »/ 

VEKLET(punkt->pos, sch_p); /» Schnittpunkt merken »/ 
punkt->userl = schji; /» m und k merken »/ 

punkt->user2 = sch_J{; 


: »/ 


/» neues Minimum */ 

/» Objektstruktur merken */ 
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/* Kein Schnittpunlct? */ 
if (s_mln == UNENDLICH) 

dann Hintergrund: */ 

^Objekt = (WORD )8twelt->hinten[0]; 

/* Objekttyp und s_min übergeben: */ 
punkt->s = s_min; 
return (**objekt); 


/¥: Schnittpunktberechnungen: »/ 

/*¥:**¥:*¥:ti**¥:*¥r¥:*¥:*****tit(:****¥:*/ 


/* Kugel: »/ 

/* Ermitteln des Schnittpunktes einer Kugel */ 

mit einem von außen(!) auf die Kugel x/ 

/X treffenden Strahl (Gerade) x/ 

/X Rückgabe: Schnittpunkt existiert/existiert x/ 

/X nicht vor der Mattscheibe! x/ 


BOOL schnltt_kugel_a(kugel, 
struct kugel xkugel; 
struct gerade xstrahl; 
FLOAT xs; 


strahl, s) 

/X Zeiger auf Kugelstruktur x/ 
/X Zeiger auf Gerade x/ 
/X Zeiger auf gesuchtes s x/ 


FLOAT v[3], xPm, xbv, xKm; 

FLOAT a, b, c, D; 


Pm = 8cstrahl->p0[0]; 
Km = 8ckugel->pos[0]; 
bv = 8cStrahl-> a[0]; 


/X Punkt Pm ist PO der Gerade x/ 
/X Punkt Km ist Kugelmittelpunkt x/ 
/X bv ist Richtungsvektor Gerade x/ 


VEKSUB(v, Pm, Km); /x v = Pm-Km 


*/ 


/X Berechnung der Koeffizienten für die x/ 

/X quadratische Gleichung von s: x/ 

a = SKAPRD(bv, bv); /x a = bx''2 + by'Z + bz''2 x/ 

b = 2 xSKAPRD(v, bv); /X b = 2x(vxbx + vyby + vzbz) x/ 

c = SKAPRD(v, v) - /X c = vx''2 + vy''2 + vz''2 - R''2 x/ 

kugel->radius x kugel->radlus; 

/X Berechnung der Diskrlmlnante für s: x 
D = bxb - 4xaxc; /x D = b"2 - 4xaxc x/ 
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/» Existiert ein Schnittpunkt? */ 
if (D>0) 

[ 

/* Ja: ¥:/ 

D = WURZEL(D); 

*s = (-b-D)/(2*a); /* kleineres s berechnen */ 

If (ifs <= MINI_S) A s zu klein? »/ 

xs = (-b+D)/(2*a); /* ja => größeres s berechnen */ 

return (BOOL) (xs>MINI_S); /* s immer noch zu klein? */ 

] 

eise 

[ 

return (BOOL)(FALSE); /¥: Kein Schnittpunkt vorhanden */ 


/» Fläche: */ 
/* Berechnen des Schnittpunktes einer */ 
/* Gerade (Strahl) mit einem Parallelogramm */ 
/* (z.B.: Rechteck oder Quadrat) »/ 
/* gesucht ist s als den Verlängerungsfaktor */ 
/‘k für den Richtungsvektor der Gerade */ 

BOOL schnitt_flaech(flaeche, strahl, s) 


struct flaeche 

»flaeche; 

/* 

struct gerade 

»strahl; 

/* 

FLOAT *s; 




[ 


REGISTER WORD i, j; 


FLOAT 

»n; 

/» 

FLOAT 

»PO; 

/* 

FLOAT 

»V, »w; 

/* 

FLOAT 

»Pm, »b; 

/* 

FLOAT 

Vektor[3]; 

/* 

FLOAT 

nenner, q; 



PO = &flaeche->ebene.p0[0] 
V = &flaeche->ebene.a[0]; 
w = 8iflaeche->ebene.b[0]; 


Zeiger auf Flächenstruktur */ 
Zeiger auf Geradenstruktur »/ 
Zeiger auf gesuchtes s k/ 


Normalenvektor der Fläche »/ 
Flächen-Fixpunkt »/ 

Flächen-Rlchtungsvektoren 
Geradenparameter k/ 

Zwischenparameter »/ 
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Pm = 8cstrahl->p0[0]; 
b = 8cStrahl-> a[0]; 

n = &flaeche->ebene.n[0]; 

/* Bel Bedarf Berechnung des Normalenvektors n: »/ 
If (NOT flaeche->ebene.ru_valld) 


VEKPRD(n, v, w); /* n = v x w tk/ 

flaeche->ebene.n_valid = TRUE; 


/* Ist der Nenner (b*n) ungleich Null */ 

/ti => Schnittpunkt mit Ebene existiert */ 

/* Ist der Nenner gleich Null */ 

/* => kein Schnittpunkt mit Ebene x/ 

If ( (nenner = SKAPRD(b, n)) != 0.0) 

[ 

/X Schnittpunkt bei s ermitteln: x/ 

VEKSUB(Vektor, PO, Pm); 

xs = SKAPRD(Vektor, n) / nenner; 

/X Koordinaten des Punktes berechnen: x/ 
GERADEN_PKT(sch_p, Pm, xs, b); 


/X Liegt der Punkt Im Parallelogramm? x/ 

/X Passendes Gleichungspaar suchen: x/ 

for (1=2; i>=0; 1—) 
for (j=0; j<3; 1++) 

/X vi<>0 und wjxvl-wlxvj < >0 ? x/ 
if ( l!=j 8c8c v[l] && (nenner=w[j]xv[i]-w[i]xv[j]) ) 
goto weiter; 

return (FALSE); /x bei Fehler zurück! x/ 

weiter: /x 1 und j sind die Nummern der Gleichungen x/ 

/X Berechnung der Ebenenfaktoren m und k: x/ 

schj = ( (sch_p[j]-P0[j]) X v[i] - (q=sch_p[l]-P0[l]) x v[j] ) 
/ nenner; 
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If (sch_m >=0.0 &8c schji <= 1.0) 

sch_k = (q - sch_mxw[l]) / v[i]; 
eise 

return (FALSE); /x Schnittpunkt außerhalb des x/ 

/X Parallelogramms x/ 

If (sch_k >= 0.0 && sch_Jc <= 1.0) 

return (BOOL) (xs>MINI_S); /x s zu klein? x/ 

eise 

return (BOOL)(FALSE); /x Schnittpunkt außerhalb des x/ 

/X Parallelogramms x/ 


eise 


return (BOOL)(FALSE); /x kein Schnittpunkt 


*/ 


/X Farbberechnungen: x/ 

/xxxxxxxxxxxxxxxxxxxxx/ 

/X Hintergrund: x/ 

VOID hintergrundfarbe(welt, puhkt) 

struct weit xwelt; /x Zeiger auf Weltstruktur x/ 
struct punkt xpunkt; /x Zeiger auf Punktstruktur x/ 

( 

struct hintergrund xhg; /x Zeiger auf Hlntergr.-Strukt. x/ 

hg = Scwelt-> hinten [0]; 

/X Hintergrundfarbe holen: x/ 

COLLET(punkt-> färbe, hg-> farbel); 


/X Lichtquelle: x/ 

VOID llchtfarbe(welt, Iq, punkt) 

struct weit xwelt; /x Zeiger auf Weltstruktur x/ 
struct lichtquelle xlq; /x Zeiger auf Lichtstruktur x/ 
struct punkt xpunkt; /x Zeiger auf Punktstruktur x/ 
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1 

/* Lichtfarbe holen: ¥:/ 
COLLET(punkt-> färbe, lq->farbe); 


/¥: Kugel: */ 


VOID kugelfarbe(welt, kugel, strahl, punkt) 
struct weit xwelt; /x Zeiger auf Weltstruktur x/ 

struct kugel xkugel; /x Zeiger auf Kugelstruktur x/ 

struct gerade xstrahl; /x Zeiger auf Strahlstruktur x/ 

struct punkt xpunkt; /x Zeiger auf Punktstruktur x/ 


VOID farbintensO; 

FLOAT normale[3]; /x Normalenvektor der Kugel x/ 

/X Schnittpunkt nachträglich berechnen: x/ 

GERADEN_PKT(punkt->pos, strahl->p0, punkt->s, strahl->a); 

/X Normalenvektor berechnen: x/ 

/X nach: n = Schnittpunkt - Kugelmittelpunkt x/ 

VEKSUB(normale, punkt->pos, kugel->pos); 

/X Grundfarbe des Punktes bestimmen (Koh/Kod): x/ 

COLLET(punkt->färbe, kugel->materlal.färbe); 

/X Farbintensität bestimmen: x/ 

farbintens(¥elt, normale, strahl, punkt, &kugel->material); 


/X Fläche: x/ 


VOID flaechenfarbe(welt, 
struct weit xwelt; 
struct flaeche xflaeche; 
struct gerade xstrahl; 
struct punkt xpunkt; 


flaeche, strahl, punkt) 

/X Zeiger auf Weltstruktur x/ 
/X Zeiger auf Flächenstruktur x/ 
/X Zeiger auf Strahlstruktur x/ 
/X Zeiger auf Punktstruktur x/ 


l 


VOID 


farbintensO 
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REGISTER UWORD zahll, zahl2; 

FLOAT fzahll, fzahl2; 

struct material *mat; 

mat = &flaeche->material; 

/* Grundfarbe des Punktes bestimmen (Koh/Kod): 
switch (mat->oberf_typ) /* je nach Oberflächentyp */ 

[ 

case 0: /x normal, einfarbig: x/ 

C0LLET(punkt-> färbe, mat-> färbe); 
break; 

case 1: /x kariert, zweifarbig: x/ 

/X Ermittlung des Feldes: x/ 

/X INT(ra X anzahl_karosji) modulo 2) ergibt x/ 

/X die Feldart (0 oder 1) in m-Rlchtung x/ 

/X INT(k X anzahl_karos_k) modulo 2) ergibt x/ 

/X die Feldart (0 oder l) ln k-Richtung x/ 

zahll = 

((ULONG) (punkt->userl x 
zahl2 = 

((ULONG)(punkt->user2 x 

if ( (zahll + zahl2) % 2 

[ 

C0LLET(punkt-> färbe, 

] 

eise 

[ 

C0LLET(punkt-> färbe, 

] 

break; 

case 2: /x l6xl6-Musterdefinltion x/ 

/X Ermittlung des aktuellen Bitstreifens: x/ 

/X zahl = kxanz_muster_k bzw. zahl=mxanz_muster_m x/ 
/X streifennummer = INT(l6x (zahl-INT(zahl) )) x/ 

/X m: X/ 
zahll = 

fzahll = punkt->userl x mat->user.muster.anz_m + 0 


mat-> User.muster.anz_m 
+ 0.001)) ^ 2; /X m x/ 

mat-> User.muster.anz_k 
+ 0.001)) % 2; /X k X/ 

) 

mat-> färbe); 


mat-> farbe2); 


001 ; 
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zahll = 

fzahll = 16 * (fzahll - (FLOAT)zahll ); 

/* k: */ 
zahl2 = 

fzahl2 = punkt->user2 * mat->user.muster.anz_Jj + 0.001; 
zahl2 = 

fzahl2 = 16 (fzahl2 - (FLOAT)zahl2 ); 

/* je nach gesetztem oder nicht gesetztem Bit */ 

/* im Punktmuster Farbe 1 oder Farbe 2 setzen */ 
if ( mat->user.muster.muster[zahll] & (IL < < zahl2) ) 
[ 

C0LLET(punkt-> färbe, mat-> färbe); 

] 

eise 

l 

C0LLET(punkt-> färbe, mat-> farbe2); 

] 

break; 

] 


/* Farbintensität bestimmen: */ 

färbintens(weit, flaeche->ebene.n, strahl, punkt, mat); 


/X Reflexionsgesetz: Berechne den Reflexions- */ 
/* Vektor aus Einfallsvektor und Flächennormale */ 


VOID reflexlon(refl_vek, elnf_vek, normale) 

FLOAT ;trefl_vek; /* Zeiger auf Reflexionsvektor */ 
FLOAT *einf_vek; /* Zeiger auf Einfallsvektor L */ 
FLOAT anormale; /* Zeiger auf Normalenvektor n */ 


FLOAT Lp[3]; /* Projizierter Einfallsvektor */ 

FLOAT q; 

/» 2 * Projizierter Einfallsvektor: Lp=2*(L»n)/n''2 * n x/ 
q = 2 X SKAPRD(einf_vek, normale) / SKAPRD(normale, normale); 
MULVEK(Lp, q, normale); 
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/* Bestimme Reflexionsvektor nach: R=Lp-L */ 
VEKSUB(refl_vek, Lp, einf_vek); 


/* Farbintensität eines Objektpunktes berechnen x/ 
/*xx*xxxxx*x**x***xxxx*xx**xxx***xx*x*xx*xxx*x»xx/ 

VOID färbintens(weit, normale, strahl, punkt, material) 
struct weit xwelt; /x Zeiger auf Weltstruktur x/ 

FLOAT xnormale; /x Zeiger auf Flächennormale x/ 

struct gerade xstrahl; /x Zeiger auf Strahlstruktur x/ 

struct punkt xpunkt; /x Zeiger auf Punktstriiktur x/ 

struct material xmaterial; /x Zeiger auf Materialstrukt.x/ 

[ 

VOID ray_trace(), 

reflexlonO; 

WORD schnltt_obj s(); 

FLOAT potenz(); 

struct gerade refl_strahl; /x Reflexionsstrahl x/ 
struct punkt refl_punkt; /x Reflexionspunkt x/ 
FLOAT färbe[3]; 

/X Farbwertinitialisierung: x/ 
farbe[0] = farbe[l] = farbe[2] = 0.0; 


/X Spiegelungen bearbeiten: x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

If (material->llcht_typ == VERSPIEGELT) 

[ 

/X Objekt ist verspiegelt: x/ 

/X Intensität des gespiegelten Lichtes: x/ 

[ 

REGISTER WORD rgb; 

for (rgb=0; rgb<3; rgb++) 

[ 

re fl_punkt.lntens_b[rgb] = 

punkt->intens_b[rgb] x material->splegel_lnt[rgb]; 
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/* Abbruchkriterium: gespiegeltes Licht ist */ 

/» zu dunkel oder: maximale Anzahl an */ 

/* RekursIonen ist erreicht x/ 

If ( (refl_punkt.intens_b[0] > SCHWARZ II 
refl_punkt.lntens_b[l] > SCHWARZ II 
refl_punkt.lntens_b[2] > SCHWARZ ) && 
rekur_zaehl < REKUR_MAX ) 

[ 

/* Licht ist noch hell genug => x/ 

/» Rekursion! Reflexionsstrahl wird weiter- 
/* verfolgt. Gesucht ist die Farbe! */ 

/X berechne Reflexionsstrahl: x/ 

refl_strahl.a[0] = -strahl->a[0]; /x Einfallsstrahl */ 
refl_strahl.a[l] = -strahl->a[l]; /* umdrehen */ 

refl_strahl.a[2] = -strahl->a[2]; 
reflexlon(refL_strahl.a, refl_strahl.a, normale); 

/* Fixpunkt des neuen Strahles = Schnittpunkt: x/ 
VEKLET(refL_strahl.pO, punkt->pos); 

/* Rekursionszähler erhöhen: */ 
rekur_zaehl-H-; 

/* Hier ist sie: ¥c/ 

ray_trace(welt, &refL_strahl, 8crefl_punkt); 

/* Rekursionszähler erniedrigen: */ 
rekur_zaehl—; 

/X Ermittelte Farbe übertragen ¥:/ 

/¥: und Spiegelintensität berücksichtigen: */ 

[ 

REGISTER WORD rgb; 

for (rgb=0; rgb<3; rgb++) 

farbe[rgb] = refL-punkt.färbe[rgb] * 

material-> spiegeL_int[rgb]; 
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/* Spiegelnde und diffuse Lichtreflexion: */ 

[ /* Neuer Blockstart mit eigenen lokalen Variablen */ 

REGISTER WORD rgb, Iq; 

struct gerade llcht_strahl; /» Strahl zum Licht ¥:/ 

struct Lichtquelle «licht; /« Zeiger auf Llchtq.-Struk. «/ 
FLOAT cos_a, cos_b; 

FLOAT nenner, potenz; 

WORD *z_objekt; 

/« Fixpunkt der Licht- und Reflexionsstrahlen: «/ 
VEKLET(llcht_Strahl.pO, punkt->pos); 

VEKLET(re fl_strahl.pO, punkt-> pos); 

/* Alle Lichtquellen bearbeiten: «/ 
for (lq=0; Iq < welt->anz_llcht; lq++) 

[ 

/« Adresse der aktuellen Lichtquellenstruktur: «/ 

licht = &welt->licht[Iq]; 

/« Bestimme Strahl Schnittpunkt->Lichtquelle: «/ 

/« PO=Schnittpunkt, a=(Llchtq-Schnlttp) */ 

VEKSUB(llcht_strahl.a, licht->pos, punkt->pos); 

/* Existiert ein Schnittpunkt vor der Lichtquelle? «/ 
schnitt_objs(welt, 8erefl_punkt, 8tllcht_strahl, &z_objekt); 

if (z_objekt == (WORD «)licht) 

[ 

/« nein: Objekt wird von Lichtquelle beschienen «/ 

/* => LichtIntensität berechnen: «/ 

/« Bestimme den Llcht-Reflexlonsvektor R: «/ 

reflexion(refl_strahl.a, licht_strahl.a, normale); 


/« Berechne die RGB-Farbwerte des Punktes «/ 
/« für die Lichtquelle: «/ 


/« Intensitätsformel: 

/* intens = 

/« Iq « [Kod«cos(a) + Krxcos(b)''f] / (d « Kd) 
/* mit: 

/« Iq = licht->färbe[] 


*/ 


= licht->färbe[] 
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/* 

Kod 

= punkt-> färbe [] 

*/ 

/* 

cos(a) 

= n'*L' = mL/i lnl)f ILI) 

*/ 

/* 

n 

= normale 


/* 

L 

= licht_strahl.a 

*/ 

/* 

Kr 

= material->spieg_ref[] 

*/ 

/* 

cos(b) 

= R'itS' = R;tS/( IRUISI) 


/* 

R 

= refl_strahl.a 

*/ 

/* ' 

S 

= - strahl->a 


/* 

f 

= material->fokus_ref[] 


/* 

d 

= VEK_LAENGE(llcht_strahl.a) 

*/ 

/* 

Kd 

= licht->dist_konst 


nennen 

= VEK_LAENGE(licht_strahl.a) * 



licht- > dist_Jconst; 

/» Cosinus berechnen: »/ 

cos_a = SKAPRD(normale, normale) * 

SKAPRD(llcht_strahl.a, licht_strahl.a); 
cos_a = SKAPRD(normale, licht_strahl.a) / 
WURZEL(cos_a); 

cos_b = SKAPRD(refL_strahl.a, refl_strahl.a) * 

SKAPRD(-strahl-> a, -strahl->a); 
cos_b = SKAPRD(refLstrahl.a, -strahl->a) / 

WURZEL(cos_b); 

for (rgb=0; rgb<3; rgb++) 

[ 

potenz = POTENZ(cos_b, material->fokus_ref[rgb]); 
färbe[rgb] += licht->färbe[rgb] * 

( punkt->färbe[rgb] » cos_a + 
material->spieg_ref[rgb] * potenz 
) / nennen; 

j /* for rgb */ 

] A if */ 

] /* for Iq it/ 

Berücksichtigung der Hintergrundbeleuchtung */ 

/* nach: I = Ih*Koh + sonst. Intensitäten */ 

for (rgb=0; rgb<3; rgb++) 

punkt-> färbe [rgb] = 

färbe [rgb] + weit->hlntlicht [rgb] * punkt-> färbe [rgb]; 
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] /* Blockende */ 


/* Initialisiere Farbpalette: */ 
VOID lnlt_farben() 


[ 

REGISTER UWORD reg, rgb; 

for (reg=0; reg<ANZ_PAL_FAB; reg++) 

[ 

/* Farbpalette setzen: ¥;/ 

SetRGB4(&Blldschirm-> VlewPort, (LONG)reg, 

Palette [reg][0], 

Palette [reg][1], 

Palette [reg][2] ); 

Hardware-Intensitätswerte ln programminterne */ 

/* Werte umrechnen (von 0 - 2"16): */ 

for (rgb=0; rgb<3; rgb++) 

[ 

If (G_M0D & EXTRA^HALFBRITE) 

[ 

/* obere Farbregister haben die halbe Intensität: */ 

/* berechne den Integer der halben Intensität: */ 

Palette[reg+32][rgb] = 

( (Palette [reg][rgb] & OxfffffffeL) < < 15 ) / ANZ_INT; 

] 

Palette [reg] [rgb] = (palette[reg] [rgb] << 16) / ANZ_INT; 



/* Zeichne einen Punkt auf den Bildschirm: */ 

/* Obergeben wird die RGB-Intensltät 
/* Gesucht wird das Palettenregister, das */ 
dem RGB-Wert am nächsten kommt */ 

VOID plot(x, y, punkt) 

LONG X, y; Bildschirm-Koordinaten des Punktes */ 

struct punkt *punkt; /* Zeiger auf Punktstruktur */ 
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WORD zufallO; 

REGISTER DWORD reg, rgb; 

DWORD reg_min=0, zwelt_reg_mln=0; 

ÜLONG färbe[3]J 

DLONG dlff_sum_min = 0x7fffffff, /» größt mögl. Wert */ 

zwelt_suni_mln = 0x7fffffff, 
diffl_suni, 
dlff2_suni; 

DLONG diffjiajcjnln = 0x7fffffff, 

zweit_max_mln = 0x7fffffff, 
dlffljnax, 
dlff2_max; 

DWORD reg2; 

LONG diff; 


/» Punktfarbe zwischen 1 und 0 festlegen */ 

/» und ins Palettenforraat umwandeln: */ 

for (rgb=0; rgb<3; rgb++) 

[ 

punkt-> färbe [rgb] = 

MAX(0.0, punkt->färbe[rgb]); 
punkt-> färbe [rgb] = 

MIN(1.0, punkt->färbe[rgb]); 
farbe[rgb] = (DLONG)(punkt->farbe[rgb] * 65536); 


/* Passendes Palettenregister suchen: »/ 

/* bei EXTRA_HALFBRITE: doppelter Farbsatz */ 
for (reg=0; reg<ANZ_FARBEN; reg++) 

[ 

dlffl_sum = 0; 
dlff2_sum = 0; 
dlffljiax = 0; 
dlff2_max = 0; 
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for (rgb=0; rgb<3; rgb++) 

[ 

/* Summe der Differenzen der RGB-Intensitäten: */ 

dlff = Palette[reg][rgb] - farbe[rgb]; 
dlffl_sum += dlff = ABS(dlff); 

/* und größte Differenz: */ 
dlffLjnax = MAX(dlffL_max, dlff); 


dlff2_sum = dlffl_sum; 
dlff2_jiiax = dlffl_max; 
reg2 = reg; 

/¥: Minimum berechnen: »/ 

If (dlff_sum_mln > dlff]_sum II 

(dlff_sum_mln == dlffL_sum && dlff_max_mln > dlffl_max) ) 

[ 

dlff2_sum = dlff_sum_mln; 
dlff2_max = dlff_max_mln; 
reg2 = regjiln; 

dlff_sum_mln = dlffl_sum; /» Neues Minimum ¥:/ 

dlff_max_mln = dlffljiax; 

regjiln = reg; /» Register merken */ 


/* zweltklelnstes Minimum berechnen: 

If ( (zwelt_surn_mln > dlff2_sum I I 

(zwelt_sum_mln == dlff2_sum && zwelt_max_mln > dlff2_max) ) 

&& dlff2_sum > dlff_sum_mln ) 

{ 

zwelt_sum_mln = dlff2_sum; /* Neues Minimum */ 

zwelt_max_mln = dlff2_max; 

zwelt_reg_mln = reg2; /* Register merken */ 

] 


/* Kleinste und zweltklelnste Summe zufällig mit 
/* gewichteter Wahrscheinlichkeit als Quelle für */ 

/* das jeweilige Farbreglster auswählen: */ 

If ( (FLOAT)Zufall0 + (zwelt_sum_mln < < 8) / 

(zwelt_sunLjmln+dlff_sunLjnln) * 1.20 > Oxff ) 
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/* Farbe einstellen: */ 
SetAPen(RastPort, (LONG)reg_mln); 

] 

eise 

[ 

/* Farbe einstellen: */ 
SetAPen(RastPort, (LONG)zwelt_reg_min); 


/X Punkt plotten: */ 

WrltePlxel(RastPort, x, y); 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

] 


/X Ermittlung einer Integer-Zufallszahl x/ 
/X zwischen 0 und $100 x/ 

WORD zufallO 


( 

statlc LONG zuf = 100001; 


zuf x= 125; 
zuf %= 2796203; 

return (W0RD)( (zuf << 8)/2796203); 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


/XX 


XX/ 

/XX 

Datenteil : 

XX/ 

/XX 


XX/ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/X Palettenfarben: x/ 

ULONG Palette[ANZ_FARBEN][3] = 

{ 

[ 1, 1, 1], [14,14, 0], 
[15,15,15] , [13,13, 0] , 
[15,13,13] , [12,12, 0] , 
[15,10,10], [11,11, 0], 

[15, 6, 6], [ 9, 9, 0], 
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[15, 0, 0], [ 9, 9, 9], 

{14, 0, 0], [13,13,15], 

[13, 0, 0], [10,10,15], 

[12, 0, 0], [ 6, 6,15], 

[11, 0, 0], [ 0, 0,15], 

[ 9, 0, 0] , [ 0, 0,14] , 

[13.13.13] , [ 0, 0,13], 

[15.15.13] , [ 0, 0,12], 

[ 15 , 15 , 10 ], [ 0 , 0 , 11 ], 

[11,11,11], [ 0, 0, 9], 

[15,15, 0] , [ 3, 3, 3] , 

] ; /* nur die ersten 32 Farben initialisieren */ 


/* Sämtliche Daten für die Welt: if/ 

/¥: Die Urwelt: »/ 
struct new_welt 
{ 

FLOAT hlntlicht[3]; 

] new_welt = [ [ 0 . 32 , 0.32, 0.32] ]; 

/* Der Beobachter: it/ 
struct beobachter new_beo = 


[21.0, 24.0,-29.0], /* Position */ 

[ 0.0, 0.0, O.O], /* Blickpunkt */ 

[-1.5, -1.5, 3-0], /* alternativ: Blickvektor tt/ 

1.0, /* Abstand zur Mattscheibe tt/ 

1.00, 1.00, /» Punktbrelte/-höhe */ 

319L, 245L, /* x-/y-Auflösung */ 

55.0, /* hör. Sichtwinkel (Grad) */ 

[0.0, 0.0, 0.0], /* später zu inlt. Werte 

[ 0 . 0 , 0 . 0 , 0 . 0 ] , 

[ 0 . 0 , 0 . 0 , 0 . 0 ] 


/* Der Hintergrund: »/ 
struct hintergrund new_hint = 

[ 

HINTERGRUND, /* Typ */ 

UNENDLICH, /* "Position" »/ 

[O.OO, 0.00, 0.80], /* Farbe 1 */ 
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{0.00, 0.00, 0.00] A Farbe 2 */ 

]; 

/¥: Die Lichtquellen: */ 
struct lichtquelle new_llcht[] = 

{ 


LICHTQUELLE, 

/* Typ 


{23.5,20.0, 20.0] , 

/* Position 


1.0, 

/* Radius 

*/ 

{1.00, 1.00, 1.00] , 

/* Farbe 

*/ 

0.18 

y 

/* Kd 


LICHTQUELLE, 

/» Typ 

*/ 

{ 7.0, 1.0, -6.0] , 

/» Position 


1.0, 

/* Radius 


{1.00, 1.00, 1.00], 

/* Farbe 

*/ 

1.9 

Kd 

»/ 


/¥: Die Objekte: */ 

A !• Kugeln: */ 

struct kugel new_kugeln[] = 


KUGEL, 


/* Typ 


{ 6.0, 6.5, 

3.0] , 

/» Position 

*/ 

3.0, 


/* Radius 


{ /* Material 

: k/ 



{0.00, 0.00, 

0.00] , 

Farbe 


{0.00, 0.00, 

0.00] , 

/* Farbe 2 


{0.00, 0.00, 

0.00] , 

/* Farbe 3 


{0.00, 0.00, 

0.00] , 

/» Kr 


{ 5.0, 5.0, 

5.0] , 

/* Fokus f 


{0.85, 0.85, 

0.85] , 

/* Spiegelint */ 

VERSPIEGELT, 


/it Llchtop 


0 


/» Oberfl.typ */ 

User */ 





] 
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KUGEL, 

[ 0 . 0 , 13 . 0 , 0 . 0 ] , 

5.0, 

{ /¥: Material: ¥;/ 
[ 0 . 00 , 0 . 00 , 0 . 00 ] , 
[ 0 . 00 , 0 . 00 , 0 . 00 ] , 
[ 0 . 00 , 0 . 00 , 0 . 00 ] , 
[ 0 . 00 , 0 . 00 , 0 . 00 ] , 
[ 5.0, 5.0, 5.0] , 

[0.85, 0.85, 0.85] , 
VERSPIEGELT, 

0 

/* User */ 


/* Typ */ 

/» Position */ 

/* Radius */ 

/* Farbe */ 

/¥; Farbe 2 */ 

/* Farbe 3 */ 

/* Kr »/ 

/* Fokus f */ 

/* Spiegelint */ 

/* Lichtop */ 

Oberfl.typ */ 


i > 


KUGEL, 


/» 

Typ 

*/ 

[15.0, 2.0, ■ 

-2.5] , 

/* 

Position 


2.0, 

[ /» Material 

: */ 

/* 

Radius 

*/ 

[1.00, 0.00, 

0.00] , 

/» 

Farbe 


0 

0 

0 

0 

0 

0 

0.00] , 


Farbe 2 


[0.00, 0.00, 

0.00] , 

/* 

Farbe 3 

*/ 

[9.00, 9.00, 

9.00] , 

/* 

Kr 


[60.0, 60.0, 

60.0] , 

/* 

Fokus f 


[0.00, 0.00, 

0.00] , 

/* 

Spiegelint */ 

NORMAL, 


/* 

Lichtop 


0, 


/* 

Oberfl.typ if/ 


/it User */ 


] 


KUGEL, 


Typ 


[ 8 . 0 , 2 . 5 , 22.5], 


Position 


2.5, 

/* 

Radius 


[ /* Material: */ 




[0.00, 0.00, 1.00], 

/* 

Farbe 


[0.00, 0.00, 0.00] , 

/* 

Farbe 2 


[0.00, 0.00, 0.00] , 

/* 

Farbe 3 


[1.00, 1.00, 1.00], 

/* 

Kr 


[ 4.0, 4.0, 4.0], 


Fokus f 


[0.00, 0.00, 0.00] , 


Spiegelint 

*/ 

NORMAL, 

/* 

Lichtop 


0, 

/* 

Oberf1.typ 


/* User */ 






KUGEL, /* Typ */ 

[ 6.1, 1.2, 18.9], /* Position */ 

1.0, /* Radius */ 

[ /* Material: */ 

{1.00, 1.00, 0.00], /* Farbe 

[0.00, 0.00, 0.00], /* Farbe 2 */ 

[0.00, 0.00, 0.00], /* Farbe 3 */ 

[9.50, 9.50, 9.50], /* Kr V 

{50.0, 50.0, 50.0], /* Fokus f »/ 

{0.00, 0.00, 0.00], /* Spiegelint */ 

NORMAL, /* Llchtop */ 

0, /* Oberfl.typ */ 

/» User */ 


], 


KUGEL, 


Typ 


{20.5, 2.2, 6.5], 


Position 


1.5, 


Radius 

*/ 

{ /* Material: */ 




{1.00, 0.00, 0.00], 

/* 

Farbe 


{0.00, 0.00, 0.00] , 


Farbe 2 


{0.00, 0.00, 0.00] , 


Farbe 3 


{9.50, 9.50, 9.50], 


Kr 


{ 50.0, 50.0, 50.0] , 

/* 

Fokus f 


{0.00, 0.00, 0.00] , 

/» 

Spiegelint 


NORMAL, 


Llchtop 


0 , 


Oberf1.typ 

*/ 

/* User */ 





KUGEL, 


/* 

Typ 


{12.0, 

2.7, 11.0], 

/* 

Position 


2.5, 

{ Material: */ 

/* 

Radius 


{0.00, 

0 .00, 1.00] , 

/* 

Farbe 


{0.00, 

0 .00, 0.00] , 

/* 

Farbe 2 


{0.00, 

0 .00, 0.00] , 


Farbe 3 


{5.00, 

5 .00, 5.00] , 

/* 

Kr 


{60.0, 

60.0, 60.0] , 

/* 

Fokus f 


{0.00, 

0 .00, 0.00] , 

/* 

Spiegelint 
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NORMAL, 

0 , 

/* User »/ 


Llchtop */ 
/* Oberfl.typ */ 


]; 


struct flaeche new_flaechen[] = 

[ 

[ linke Seitenwand: 

FLAECHE, /* Typ =k/ 

[ 0.0, 0.0,-30.0] , /* 3 Ecken */ 

[ 0 . 0 , 20 . 0 ,- 30 . 0 ] , 

[ 0 . 0 , 0 . 0 , 30 . 0 ] , 

[ /* Ebene, wird später initialisiert: rk/ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


[ A Material: */ 

[0.30, 0.30, 0.30], A Farbe */ 

[1.00, 0.00, 0.00], A Farbe 2 

[O.OO, 0.00, O.OO] , /* Farbe 3 */ 

[0.70, 0.70, 0.70] , /it Kr */ 

[1.00, 1.00, 1.00], /* Fokus f */ 

[O.OO, 0.00, 0.00], /X Spiegelint x/ 

NORMAL, /X Lichtop x/ 

0, /X Oberfl.typ x/ 

/X User: x/ 

( 


[ A Muster (nur nach Einstellung von Oberfl.typ =2): x/ 
10,10, /X Anzahl Muster m/k-Rtg. x/ 

[0x0000, 0x0000, 0x0000, OxOOlc, 

0x003c, 0x005c, 0x009c, OxOllc, 

0x021c, 0x04lc, OxOffc, OxlOlc, 

0x201c, 0x401c, 0xe03e, OxOOOO] 


[ A hintere Wand (verspiegelt): x/ 
FLAECHE, /X Typ x/ 

[ 1.3, 1.3, 29.9] , A 3 Ecken x/ 

[ 1.3, 18.7, 29.9] , 

[18.7, 1.3,29.9], 

[ /X Ebene, wird später Initialisiert: x/ 
[0,0,0,] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 



[ /* Material: -x/ 



[0.00, 0.00, 0.00] , 

/¥: Farbe 

*/ 

[0.00, 0.00, 0.00] , 

/» Farbe 2 

*/ 

[0.00, 0.00, 0.00] , 

/* Farbe 3 

*/ 

[0.00, 0.00, 0.00] , 

/¥: Kr 

*/ 

[ 1.0, 1.0, 1.0] , 

/* Fokus f 


[0.85, 0.85, 0.85] , 

Spiegelint 

*/ 

VERSPIEGELT, 

/* Llchtop 

*/ 

0 , 

Oberfl.typ 

*/ 

User »/ 

] 



> 

/* hintere Wand (unverspiegelt): */ 


FLASCHE, 

/* Typ 


[ 0.0, 0.0, 30.0] , 

/* 3 Ecken 

*/ 


[ 0.0, 20.0, 30.0] , 

[ 20 . 0 , 0 . 0 , 30 . 0 ], 

[ /* Ebene, wird später Initialisiert: */ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


[ /¥: Material: */ 




[1.00, 1.00, 1.00], 

/* 

Farbe 


[0.00, 0.00, 0.00], 

/* 

Farbe 2 

*/ 

[0.00, 0.00, 0.00], 

/* 

Farbe 3 


[1.10, 1.10, 1.10], 

/* 

Kr 


[99.0, 99.0, 99.0] , 

/* 

Fokus f 


[0.00, 0.00, 0.00] , 

/* 

Spiegelint 

*/ 

NORMAL, 

/* 

Llchtop 


0 , 

/* 

Oberfl.typ 


User */ 

] 




f 

/* Tischplatte: */ 




FLAECHE, 

/* 

Typ 

*/ 

[ 0.0, 0.0,-30.0] , 

/* 

3 Ecken 


[ 0.0, 0.0, 30.0] , 




[20.0, 0.0,-30.0], 





[ /* Ebene, wird später initialisiert: »/ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


[ /* Material: 


[1.00, 

1 .00, 

0 .00] , 

/Hl Farbe 

*/ 

[0.00, 

0 .00, 

0 .00] , 

/» Farbe 2 

*/ 

[0.00, 

0 .00, 

0 .00] , 

/* Farbe 3 
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[ 1 . 00 , 1 . 00 , 1 . 00 ], 
[ 1 . 0 , 1 . 0 , 1 . 0 ] , 
[ 0 . 00 , 0 . 00 , 0 . 00 ], 
NORMAL, 

2 , 

/* User: */ 

[ 

[ 

5,5 

[Oxeeee, 

Oxeeee, 

Oxeeee, 

Oxeeee, 


/* Kr th/ 
/X Fokus f X/ 
/X Spiegelint x/ 
/X Llchtop X/ 
/X Oberfl.typ x/ 


Muster: x/ 

/X Anzahl Muster m/k-Rtg. x/ 
Oxeeee, Oxeeee, Oxeeee, 
Oxeeee, Oxeeee, Oxeeee, 
Oxeeee, Oxeeee, Oxeeee, 
Oxeeee, Oxeeee, Oxeeee] 


[ /X Schachtelboden: x/ 

FLAECHE, /X Typ x/ 

[ 5.0, 0.1, 3.0], /X 3 Ecken x/ 

[15.0, 0.1, 3.0], 

[ 5 . 0 , 0 . 1 , 20 . 0 ] , 

[ /X Ebene, wird später initialisiert: x/ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 

I, 

[ /X Material: x/ 


[1.00, 

1 .00, 

1 .00] , 

/X Farbe 


[0.00, 

0 .00, 

0 .00] , 

/X Farbe 2 


[0.00, 

0 .00, 

0 .00] , 

/X Farbe 3 

*/ 

[1.00, 

1 .00, 

1 .00] , 

/X Kr 


[ 1.0, 

1 .0, 

1 .0] , 

/X Fokus f 


[0.00, 

0 .00, 

0 .00] , 

/X Spiegelint x/ 

NORMAL, 



/X Lichtop 


1 , 



/X Oberfl.typ x/ 


/X User: x/ 

[ 

[ /X Karos: x/ 

4, 4, /X Anzahl Karos m/k-Rtg. x/ 

[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ] 

] 




[ /X Schachteldeckel: x/ 
FLAECHE, /X Typ 



[15.0, 5.0, 3.0], /* 3 Ecken V 

[15.0, 5.0, 20.0], 

[ 22 . 0 , 0 . 0 , 3 . 0 ], 

[ /* Ebene, wird später initialisiert: */ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 

], 


/* Material 

; 1 / 




[1.00, 1.00, 

1 .00] , 


Farbe 


[0.30, 0.30, 

0.30] , 

/* 

Farbe 2 


[0.00, 0.00, 

0 .00] , 

/* 

Farbe 3 


[1.00, 1.00, 

1 .00] , 

/* 

Kr 


[ 1.0, 1.0, 

1 .0] , 

/* 

Fokus f 


[0.00, 0.00, 

0 .00] , 

/* 

Spiegelint 


NORMAL, 


/* 

Lichtop 


1 , 

/I User: */ 
f 


/* 

Oberfl.typ 


(. 

[ /k Karos: 






4, 4, /ie Anzahl Karos m/k-Rtg. »/ 
[ 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ] 


[ /* vordere Schachtelwand: 

FLAECHE, Typ */ 

[ 5.0, 0.1, 3.0] , /’k 3 Ecken */ 

[ 5.0, 5.0, 3.0], 

[15.0, 0.1, 3.0], 

[ /* Ebene, wird später initialisiert: */ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


/* Material: 

; */ 




[1.00, 0.00, 

0 .00] , 

/* 

Farbe 


[0.00, 0.00, 

0 .00] , 

/* 

Farbe 2 


[0.00, 0.00, 

0 .00] , 

/* 

Farbe 3 


[0.80, 0.80, 

0.80] , 

/* 

Kr 


[ 1.0, 1.0, 

1 .0] , 


Fokus f 


[0.00, 0.00, 

0 .00] , 

/* 

Spiegelint 


NORMAL, 


/* 

Lichtop 

*/ 

0 , 

/* User k/ 


/* 

Oberfl.typ 
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[ /* hintere Schachtelwand: */ 

FLAECHE, A Typ tk/ 

[ 5.0, 0.1, 20.0), /* 3 Ecken */ 

[ 5.0, 5.0, 20.0] , 

[ 15 . 0 , 0 . 1 , 20 . 0 } , 

[ /* Ebene, wird später initialisiert: */ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


[ /* Material 

: 




[1.00, 0.00, 

0 .00] , 

/* 

Farbe 


[0.00, 0.00, 

0 .00] , 

/* 

Farbe 2 


[0.00, 0.00, 

0 .00] , 

/* 

Farbe 3 


[0.90, 0.90, 

0.90] , 

/* 

Kr 

»/ 

[ 1.0, 1.0, 

1 .0] , 

/* 

Fokus f 


[0.00, 0.00, 

0 .00] , 

/* 

Spiegelint */ 

NORMAL, 


/* 

Llchtop 


0 , 


/* 

Oberfl.typ */ 

/* User */ 

] 





/* Schachtelwand rechts: 



FLAECHE, 



Typ 


[15.0, 0.1, 

3.0] , 


3 Ecken 


[15.0, 5.0, 

3.0] , 





[15.0, 0.1, 20.0], 

[ A Ebene, wird später initialisiert: */ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[0,0,0] 


[ /* Material: */ 

[1.00, 0.00, 0.00], 

/* 

Farbe 


[0.00, 0.00, 0.00], 

/» 

Farbe 2 


[0.00, 0.00, 0.00], 

/* 

Farbe 3 


[0.90, 0.90, 0.90], 

/* 

Kr 

*/ 

[ 1.0, 1.0, 1.0], 


Fokus f 


[0.00, 0.00, 0.00], 

/* 

Spiegelint 


NORMAL, 

/* 

Llchtop 


0 , 

/* 

Oberf1.typ 


A User */ 

] 

> 

A Schachtelwand links: 


FLAECHE, 


Typ 


[ 5.0, 0.1, 3.0], 

3 Ecken 


[ 5.0, 5.0, 3.0], 


[ 5 . 0 , 0 . 1 , 20 . 0 ] , 
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[ /* Ebene, wird später initialisiert: tt/ 
[0,0,0] ,[0,0,0] ,[0,0,0] ,FALSE,[ 0,0,0] 


[ /* Material: */ 


[1.00, 

0 .00, 

0 .00] , 

/* Farbe 


[0.00, 

0 .00, 

0 .00] , 

/* Farbe 2 


[0.00, 

o 

o 

o 

0 .00] , 

/* Farbe 3 


[0.90, 

0.90, 

0.90] , 

/* Kr 


[ 1.0, 

1 .0, 

1 .0] , 

/* Fokus f 


[0.00, 

0 .00, 

0 .00] , 

/* Spiegelint 

NORMAL; 

► 


/X Llchtop 


0 , 



/* Oberfl.typ 


/I User 





/* Einrichtung aller Datenstrukturen: »/ 

VOID inlt_welt(welt, beo) 

struct weit itwelt; Zeiger auf Weltstruktur */ 

struct beobachter ^ebeo; /* Zeiger auf Beobachter »/ 


REGISTER WORD fl; 

/» Weltstruktur einrichten: 
weit-> anz_kugeln = 

sizeof new_kugeln / sizeof (struct kugel); 
weit->kugeln = (struct kugel *)new_kugeln; 
weit->anz_flaech = 

sizeof new_flaechen / sizeof (struct flaeche); 
welt->flaech = (struct flaeche it)new_flaechen; 
welt->anz_licht = 

sizeof new_llcht / sizeof (struct lichtquelle); 
weit->licht = (struct lichtquelle »)new_llcht; 
welt-> anz_hinten = 1; 

welt->hinten = (struct hintergrund *) (8tnew_hint); 

welt-> anz_obj = welt-> anz_kugeln + 
weit->anz_flaech + 
welt-> anz_licht + 1; 

C0LLET(welt->hintlicht, new_welt.hlntllcht); 
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/* Beobachterstruktur einrichten: )k/ 
xbeo = new_beo; 

beo->x_winkel *= PI/180; /* Winkel in Rad umrechnen */ 

/* Ebenenstrukturen in allen Flächenstrukturen einrichten: */ 
for (fl=0; fl<welt->anz_flaech; fl++) 

[ 

/=k Fixpunkt PO und Richtungsvektoren a, b: 
VEKLET(new_flaechen[fl].ebene.pO, new_flaechen[fl].pl); 
VEKSUB(new_flaechen[f1].ebene.a, 

new_flaechen[fl].p2, new_flaechen[fl].pl); 

VEKSUB(new_flaechen[f1].ebene.b, 

new_flaechen[fl].p3, new_flaechen[fl].pl); 


Na, ist das nichts? Da macht das Programmieren doch wieder richtig Spaß! 

Was ist zur Bedienung zu sagen? Nun, eigentlich nicht viel. Das Wichtigste ist das Starten, dann 
geht alles ganz von alleine. Es dauert lediglich seine Zeit, bis das gesamte Bild fertig ist. Das 
hängt natürlich von der Anzahl und der Größe der Objekte, vor allem von der Anzahl der Licht¬ 
quellen und der Anzahl der verspiegelten Körper ab; und genauso selbstverständlich auch leider 
von dem Compiler, den Sie verwenden. Die fertig ausführbare Version auf der Diskette wurde 
mit dem Aztek-Compiler V3.4a kompiliert und ist aufgrund der vielen Floatingpoint- 
Operationen etwa zwei- bis dreimal schneller als das gleiche Programm, das mit dem Lattice- 
Compiler in einer alten Version vor V3.10 (z.B. V3.03) kompiliert wurde. Trotzdem können 
Sie sich bei dem hier voreingestellten Stilleben auf einige Stunden Rechenzeit gefaßt machen 
(obwohl das Programm noch recht schnell ist - können Sie sich vorstellen, wie viele Tage oder 
Wochen ein Amiga-Basic-Programm wohl daran arbeiten würde?). Glücklicherweise sind 
Lattice-C-Besitzer seit V3.10 nun ebenfalls in der Lage, die schnellen FFP-Routinen des 
Amiga-Betriebssystems ohne die früheren Probleme zu nutzen (s. Kapitel 2). Damit unterschei¬ 
den sich die Ausführgeschwindigkeiten der beiden Compiler in diesem, vor Floatingpoint- 
Operationen nur so strotzenden Programm kaum noch. Aber das Warten lohnt sich! Dauert 
Ihnen das Ganze zu lange, dann versuchen Sie es doch einmal mit nur einer einzigen Kugel und 
einer Lichtquelle. Das Bild ist dann in einigen Minuten fertig. 

Wenn Sie Ihren Rechner irgendwann wieder ganz für sich haben möchten, dann betätigen Sie 
einfach den Esc-Knopf (auch während der Zeichenphase) und das Programm endet. Oder Sie 
schieben den Screen mit der Maus herunter. Wenn Sie dann noch die Task-Priorität unter CLI 
mit dem Kommando CHANGETASKPRI für das Ray-Tracing-Programm heruntergesetzt 
haben, können Sie ganz normal mit Ihrem Rechner Weiterarbeiten, während das Ray-Tracing- 
Programm auf vollen Touren läuft. Nur abstürzen darf Ihnen der Rechner dann nicht. 
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Gehen wir doch einmal davon aus, Sie hätten nun das vollständige Bild ganz fertig gezeichnet 
auf dem Bildschirm stehen. Der Besuch, der sich Ihre Kreation eimnal anschauen wollte, 
kommt, aber erst morgen. Nun, Sie brauchen den Rechner nicht die ganze Zeit eingeschaltet 
zu lassen. Ein Druck auf die Taste < S >, und schon speichert Ihr Amiga das Bild im IFF- 
Format auf Disk. Auf der beiliegenden Diskette befindet sich ein kleines Ladeprogramm, das 
Ihnen dieses Bild jederzeit wieder zum Vorschein holt. Haben Sie nicht gerade ein 
EXTRA_HALFBRITE-Bild, dann ist es ebenfalls kein Problem, Ihr fertiges Bild z.B. in 
Deluxe Paint einzuladen und nachträglich zu bearbeiten. 

Für die Darstellung des Bildes wurde in der abgedruckten Version der Grafikmodus 
EXTRA_HALFBRITE gewählt, der es ermöglicht, insgesamt 64 verschiedene Farben 
gleichzeitig auf den Bildschirm zu zaubern. Für diejenigen unter Ihnen, deren Rechner nicht 
in der Lage ist, diesen Modus darzustellen (die Amiga 1000 kennen ihn noch nicht und einige 
500er haben ebenfalls Probleme damit), und die keinen Compiler besitzen, um im obigen Pro¬ 
gramm die wenigen Änderungen vorzunehmen und neu zu kompilieren, befindet sich ein ent¬ 
sprechendes kompiliertes Programm für 32 Farben auf der beigelieferten Diskette. Die Farb- 
qualität ist dabei natürlich erheblich verringert (bzw. Sie können weniger unterschiedliche 
Farbtöne nutzen). Ebenfalls auf Diskette finden Sie sowohl Source-File als auch das ausführ¬ 
bare Programm für ein Bild im HAM-Modus (Hold-and-Modify), bei dem alle 4096 Farben 
des Amiga gleichzeitig genutzt werden können (mit einigen Einschränkungen allerdings). 
Lediglich die Programmierung der Punkt-Setz-Routine mußte dabei ein wenig abgewandelt 
werden. Sehr kommt es bei allen Modi auf die geschickte Wahl der Farben in den Palettenregi¬ 
stern an. Sie bestimmt erst richtig und in letzter Instanz die Qualität des gesamten Bildes. 

Es sollte für Sie ebenfalls kein Problem sein, den Interlace-Modus einzustellen und mit der dop¬ 
pelten Auflösung zu arbeiten. Ein Bild zu berechnen, dauert dann allerdings auch doppelt so 
lange. Das sollte Ihnen hier zunächst einmal erspart bleiben (obwohl ich Ihnen sagen muß, daß 
der Interlace-Modus ganz hervorragende Ergebnisse bringt). Vergessen Sie bei der Einstellung 
des Interlace-Modus nicht, die vertikale Punktgröße (also ypg in der Beobachterstruktur) zu 
halbieren, da ein Punkt schließlich nur halb zu hoch wie breit ist. Vernachlässigen Sie diese 
Aufgabe, erscheint Ihr Bild verzerrt auf dem Monitor. 

Wie Sie Punkte im HAM-Modus setzen, das erfahren Sie z.B. im ROM-Kernel-Reference- 
Manual, Libraries and Devices (Beispielprogramm im Kapitel 1, Advanced Graphics Exam- 
ples). 

Wie Sie mit diesem Programm eine ganz neue Szenerie entwerfen und einstellen können, das 
erfahren Sie ein paar Zeilen tiefer - eine spannende Sache! 

Kommen wir also zum Programm selber. Die notwendigen mathematischen und algorithmi¬ 
schen Grundlagen haben Sie sich bereits in den vorangegangenen Abschnitten erarbeitet. Sie 
sind jedenfalls Voraussetzung für die nun folgenden Erläuterungen. 

Beginnen wir ganz vorne. Dort werden unter der Überschrift »Hardware-Konstanten« einige 
Konstanten per # define eingestellt, die festlegen, wie viele Farben erreichbar sind, welche 
Hardware-Auflösung und welcher Grafikmodus gewählt werden. Hier können Sie natürlich bei 
Bedarf jederzeit Änderungen vornehmen. Wie gesagt, zur Zeit sind eingestellt: 64 Farben bei 
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32 Palettenregistern, damit 6 Farbebenen, eine Auflösung von 320x200 im EXTRA_HALF- 
BRITE-Modus. Die maximal 16 Farbintensitätsstufen sind beim Amiga natürlich fest einge¬ 
stellt und unveränderbar. 

Als nächstes erfolgen altbekannte Definitionen und Initialisierungen: Strukturen für einen 
neuen Bildschirm, ein neues Fenster wird definiert und initialisiert, in main( ) öffnet das Pro¬ 
gramm einige Libraries, den neuen Screen sowie das neue Window und springt dann zum 
eigentlichen Hauptprogramm do_program( ), mit dem wir uns gleich beschäftigen wollen. 

Vorher aber haben Sie es noch mit einigen # defines zu tun. Definiert werden hier vor allem 
Makros, für die aus Geschwindigkeitsgründen kein separates Unterprogramm eingerichtet 
werden sollte, die aber (fast) genauso wie normale Funktionen verwendet werden können (wenn 
»Makros« in C Ihnen kein Begriff sind, vielleicht schauen Sie dann noch einmal in Ihr C-Buch 
zum Thema »Präprozessor« oder » #define«): Neben Maximum, Minimum, Absolutwert und 
Potenzierung werden hier sämtliche notwendigen Vektoroperationen definiert. Ein Vektor wird 
im Programm durchgehend als dreielementiges Array betrachtet. Jedes Element stellt eine Vek¬ 
torkoordinate dar (z.B.: v[0], v[l] und v[2] sind die drei Elemente vx, vy undvzdes Vektors v). 

Sollen nun zwei Vektoren ä und b addiert und als Vektor c gespeichert werden (c = a -I- b), 
dann muß das Programm dazu gemäß der Definition der Vektoraddition, die Ihnen nun bereits 
geläufig sein sollte, jedes einzelne Element von von a zum entsprechenden Element von b 
addieren und als Element von c abspeichern: 

c[0] = a[0] -I- b[0] 

c[l] = a[l] + b[l] 

c[2] = a[2] -I- b[2] 

Entspricht also: 



Entsprechendes gilt für alle anderen Vektoroperationen. Die verschiedenen Makros (für die 
Addition das Makro VEKADD(c,a,b)) führen nun genau diese Operationen aus. Dabei müssen 
später im Programm als Makroparameter nur die Namen der Arrays angegeben werden, z.B.: 
VEKADD(ergebnis, vektorl, vektor2) addiert die Elemente der Vektoren vektorl[ ] und 
vektor2[ ] und speichert das Resultat in ergebnis[ ]. Achten Sie darauf, daß nur einige Makros 
in größere Ausdrücke eingebaut werden können. Die meisten haben sozusagen den »Rückgabe¬ 
wert« VOID. 

Der nächste wichtige Schritt ist die Deklaration aller im Programm verwendeten Strukturen. 
Sie sind praktisch Dreh- und Angelpunkt im gesamten System. Grundsätzlich werden (fast) alle 
Daten in Strukturen gehalten, die als Kommunikationsparameter von Funktion zu Funktion 
übergeben werden. Übergeben werden dabei nie die Strukturen selbst, sondern lediglich ihre 
Zeiger. Auf diese Weise können jeder Funktion sehr schnell sehr viele lokale Daten zugänglich 
gemacht werden. Gehen wir die Strukturen doch einmal der Reihe nach durch: 
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struct punkt; 

Dies ist eigentlich eine reine Kommunikationsstruktur. Sie enthält Daten, die im Laufe des Pro- 
grammes einmal errechnet und später vielleicht noch einmal benötigt werden. So ist z.B. die 
Errechnung eines Schnittpunktes nicht in den verschiedenen Routinen separat notwendig. 
Wenn er einmal ermittelt wurde, steht er ab sofort allen anderen Funktionen zur Verfügung. 
Auch andere Strukturen enthalten solche »Zwischenwertspeicher«, die erst im Laufe des Pro¬ 
grammes aufgefüllt werden. Hier allerdings haben wir es mit all den Daten zu tun, die einen 
Punkt im Raum beschreiben, seine Position, seine Farbe, sein s-Wert für die vektorielle Ge¬ 
radengleichung des Sichtstrahles usw. Einige Speicher (userO-2) sind sogar teilweise noch 
ungenutzt und für spätere Erweiterungen gedacht. Hier wird später letztendlich die Farbe des 
Bildschirmpunktes stehen. 

struct gerade: 

Eine vektorielle Geradendefmition besteht aus einem festen Punkt PO und einem sogenannten 
Richtungsvektor a (s. vektorielle Geradengleichung). Jede Gerade im Programm wird auf 
diese Weise und mit dieser Struktur festgelegt. 

struct ebene: 

Gemäß der vektoriellen k-m-Gleichung (oder s-t-Gleichung) ist eine Ebene durch einen Fix¬ 
punkt PO und zwei Richtungsvektoren a und b bestimmt. Eventuell gibt es die Möglichkeit, 
auch den Normalenvektor der Ebene hinzuzuziehen (s. Kapitel 4.3), was bestimmte Berech¬ 
nungen vereinfacht. Diese Parameter werden in der Ebenenstruktur festgehalten. Da der Nor¬ 
malenvektor nicht immer notwendig ist, bestimmt die BOOL-Variable n_valid, ob er in der 
Struktur zur Zeit angegeben ist oder nicht. 

struct material: 

Schon kommen wir zu den interessanten Teilen des Programmes. Die besagte Struktur legt die 
spezifischen Eigenschaften eines Objektes im Raum fest. Sie ist natürlich nie eigenständig vor¬ 
handen, sondern stets Teil einer anderen, einer Objektstruktur (z.B. für eine Kugel oder eine 
Fläche). Hier erfahrt das Programm, welche Farbe(n), welche Reflexionseigenschaften das 
Objekt besitzt, ob es verspiegelt (die Option »Durchsichtig« ist in dieser Version des Program¬ 
mes nicht implementiert) oder ob seine Oberfläche besonders strukturiert ist. Allgemein ist 
hier später der Ort für die meisten Veränderungen an einem Objekt (sieht es poliert, matt oder 
metallisch aus? Ist es hell oder dunkel, rot, grün oder weiß?). 

Diese Struktur wurde möglichst offen konzipiert. Sollten Sie irgendwann einmal Erweiterun¬ 
gen an diesem Programm vornehmen wollen, so bietet sie Ihnen Platz für viele Parameter, die 
das Objekt näher beschreiben können. Bereits implementiert sind als Oberflächenstrukturen 
für die Fläche Karos und beliebige Muster. Die Musterdefinition befindet sich dabei innerhalb 
der Struktur-Union in der Struktur »muster« (s.u.). Etwas weiter unten werden wir noch näher 
auf diese Strukturen eingehen. 
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struct Hintergrund: 

Da sind wir doch bereits bei der ersten Objektstruktur angelangt: dem Hintergrund. Normaler¬ 
weise hat eine Objektstruktur den folgenden groben Aufbau: 

Typenkennzeichnung des Objektes (z.B. »0« für Hintergrund) 

Position des Objektes 

sonstige beschreibenden Parameter 

Materialeigenschaften (meist struct material) 

An den Stellen, an denen kein Objekt zu sehen ist, erscheint der Hintergrund. Als einziger ver¬ 
änderbarer Parameter ist hier zur Zeit die Farbe angegeben. Platz ist für eine zweite Farbe (z.B. 
für Farbverläufe vom Horizont zum Himmel etc.), die in diesem Programm allerdings nicht 
genutzt wird. 

struct lichtquelle: 

Auch dies ist eine besondere Objektstruktur. Sie definiert die Position, Helligkeit und Farbe 
einer Lichtquelle. Sollte eine Lichtquelle einmal sichtbar sein, dann wird sie genauso gehand- 
habt wie eine einfarbige Kugel, deshalb die Radiusangabe. Die Distanzkonstante dist_konst 
ist die gleiche Konstante Kd, wie wir sie bereits bei den Abhandlungen über diffuse und spie¬ 
gelnde Reflexionen kennengelernt haben. Sie dient dazu, sehr weit entfernte Lichtquellen trotz¬ 
dem nicht all zu dunkel erscheinen zu lassen (Kd wird mit der Entfernung d der Lichtquelle 
zum jeweiligen Objekt multipliziert). Je kleiner also Kd, desto heller die Lichtquelle. 

struct kugel: 

Da ist sie! Die Definition einer Kugel mit Typ, Position, Radius und den diversen Materialeigen¬ 
schaften. 

struct flaeche: 

Ja, und auch sie ist hier zu finden: ein Parallelogramm, definiert durch drei Eckpunkte und die 
Materialkonstanten. Die Ebenenstruktur innerhalb dieser Struktur wird erst später initialisiert. 
Die Ebenenformel berechnet das Programm dann aus den drei Eckpunkten. 

struct beobachter: 

Damit lassen wir die Objekte hinter uns und wenden uns dem Beobachter zu, dessen Position, 
Blickrichtung usw. ja ebenfalls bekannt sein müssen. Angegeben werden müssen: 

- Position 

- Blickpunkt, also der Punkt, auf den der Beobachter gerade schaut. Damit können Sie ein 
Objekt direkt anvisieren. 

- Oder Sie geben den Blickvektor an, also die Blickrichtung. 

- Der Abstand zur Mattscheibe (normalerweise gleich 1, kann aber auch andere Werte anneh¬ 
men, wodurch der Sichtwinkel zusätzlich verkleinert oder vergrößert wird. Er bestimmt 
sozusagen die Brennweite des Objektives. 
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- Die Punktbreite und -höhe eines Punktes auf dem Bildschirm oder dem Gerät, auf dem die 
Grafik ausgegeben werden soll, in beliebigen Einheiten (xpg und ypg). 

- Die Anzahl der zu zeichnenden Punkte in x- und in y-Richtung 

- Der horizontale Sichtwinkel. Mit ihm bestimmen Sie den Bildausschnitt, den Sie sehen 
wollen (ebenfalls eine Art, die Brennweite anzugeben). 

Die anderen Parameter errechnet sich das Programm später aus den angegebenen Werten. Ein 
Wort zum Blickpunkt bzw. Blickvektor: Auf irgendeine Weise müssen Sie dem Computer klar¬ 
machen, in welche Richtung der Beobachter schaut (nach oben, unten, rechts oder links etc.). 
In unseren mathematischen Ableitungen sind wir dabei von einem bestimmten Punkt ausgegan¬ 
gen, den er anvisiert. Damit sind wir in der Lage, zu verhindern, daß wir an einem bestimmten 
Objekt »vorbeisehen«. Da sich allerdings bei dieser Angabeart die Blickrichtung und damit die 
Perspektive ändert, sobald der Beobachter verschoben wird, ist es oft günstiger, die Blickrich¬ 
tung als Sichtvektor anzugeben (er berechnet sich aus der Differenz des Blickpunktes und der 
Beobachterposition, s.o.). Sie haben also die Wahl: Entweder Sie verwenden den Blickpunkt 
als Richtungsangabe, dann setzen Sie den Blickvektor auf Null, oder Sie geben den Blickvektor 
an. Das Programm versteht beides. 

Mit der Angabe der Auflösung (bzw. der Anzahl der zu zeichnenden Punkte in x- und y- 
Richtung) bestimmen Sie, w ie groß Ihr Bild auf dem Bildschirm wird. Ein kleines Bild ist natür¬ 
lich erheblich schneller berechnet und eignet sich also für Testzwecke besser als die volle Bild¬ 
schirmgröße, an der der Computer eventuell mehrere Stunden rechnet. 

struct weit: 

Die letzte Struktur hält die ganze Welt zusammen. Hier liest der Rechner nach, wie viele 
Objekte, wie viele Lichtquellen, Kugeln und Flächen sich in der Welt befinden und wo er ihre 
Definitionen findet. Alle Kugeln (ebenso alle Lichtquellen und alle Flächen) sind beispiels¬ 
weise in einem Array gespeichert, das aus lauter Kugelstrukturen besteht. Die Startadresse 
dieses Arrays steht hier. Hier geben Sie auch an, wie hell das Streulicht, also die Hintergrund¬ 
beleuchtung sein soll, d. h. wie hell ein Objekt noch sein soll, das sich im Schatten befindet. 

Puh, nun langt es aber! Immerhin haben Sie nun einen grundlegenden Einblick in die Struktur 
dieser synthetischen Welt erhalten. Jetzt geht es ans Eingemachte. 

Dreh- und Angelpunkt aller Rechnungen und Mißrechnungen des Computers, aller Flüche und 
Schimpfkaskaden des Programmierers ist die Hauptroutine do_program(). Hier befinden 
sich die zwei ineinandergeschachtelten FOR-Schleifen, die jeden einzelnen Punkt des Bild¬ 
schirms »in Auftrag geben«, die von jedem Punkt die Farbe berechnen und sich dann nicht ein¬ 
mal das Vergnügen nehmen lassen, den Punkt dann eigenhändig auf den Monitor zu bringen. 

Doch vor dem hat der Programmierer die Initialisierungen gesetzt! Sie manifestieren sich in 
den Routinen init_welt(), init_farben() und get_konst(), die wir wohl oder übel über uns 
ergehen lassen müssen. Also dann... 
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init_welt() richtet alle Strukturen so ein, wie sie das Programm gerne vorfinden möchte. Im 
wesentlichen klinkt das Unterprogramm die Daten ein, die Sie für die einzelnen Objekte, Licht¬ 
quellen, den Beobachter etc. am Programmende eingegeben haben. Lassen Sie uns darauf 
später zurückkommen. 

Machen wir also direkt weiter bei init_farben(). Aber auch die Routine lassen wir erst ein¬ 
mal links liegen. Sie bereitet die Farbpalette für die Punkt-Setz-Funktion vor und ist zunächst 
nebensächlich. 

Aber jetzt! get_konst(): Mittelpunkt sind zwei Pflichtübungen, die mit der Beobachter¬ 
struktur zu tun haben: die Berechnung des Sichtvektors s vom Beobachter zur Mattscheibe, 
Sie erinnern sich? Schauen Sie dazu doch noch einmal ein paar Seiten weiter zurück. Am 
Anfang des Kapitels mußten Sie die mathematische Ableitung über sich ergehen lassen. Er 
berechnet sich hier entweder aus dem Blickpunkt oder - sofern angegeben - aus dem Blickvek¬ 
tor. Hier sehen Sie zum ersten Mal die Anwendung der #defme-Makros: VEKLET(), VEK- 
SUB( ), VEK_LAENGE( ) und MULVEK(). Machen Sie sich die Funktionsweise an dieser 
Stelle beispielhaft noch einmal genau klar, sie sind in Zukunft unser wichtigstes Arbeitszeug. 
Das Ergebnis, den normierten Sichtvektor, speichert die Routine dann in die noch nicht beleg¬ 
ten Plätze der Beobachterstruktur (beo ist hier ein Pointer auf die Beobachterstruktur). Auf ein 
Element muß dann also entweder so: 

(*beo).blickv[0] 

oder kürzer so: 

beo-> blickv[0] 

zugegriffen werden. 

Die Berechnung der Schrittvektoren xe und ye hat Sie bereits oben in Atem gehalten, ersparen 
Sie uns also die Einzelheiten, da Sie sie einfach nachlesen können. Die Vektoren werden gleich 
mit der jeweiligen Punktgröße (xpg, ypg) multipliziert, so daß sich ein Punkt Pm auf der Matt¬ 
scheibe mit den Bildschirmkoordinaten x,y dann einfach durch die bekannte Formel ermittelt: 

Pm = B -I- s -I- x*(xpg*xe) + y*(xpg*ye) 

Und das geschieht dann auch in der Funktion get_punkt(). 

Damit sind Sie bereits mitten in den beiden FOR-Schleifen von do_program(). Nachdem 
nämlich die Raumkoordinaten des Mattscheibenpunktes bekannt sind, sollte es kein Problem 
sein, den Sichtstrahl zu berechnen. Den Strahl (bzw. die Gerade) also, der in die Weite der Welt 
hineinragt und der darauf getestet werden muß, ob er ein Objekt schneidet. Hier geht uns ein 
weiteres Makro GET_GERADE() zur Hand, das die Geradengleichung aus zwei Punkten 
ermittelt und direkt in die Geradenstruktur des Sichtstrahles einschreibt. 

Hernach erfolgen die Initialisierung der sogenannten Intensitätsbeizahl, die lediglich für die 
Begrenzung von Mehrfachspiegelungen herangezogen wird, und des Punkt-Farbwertes, der ja 
erst noch ermittelt werden soll. 
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Und dann geht es schon los mit der Strahl Verfolgung: ray_trace{). Diese Routine ermittelt 
auf kurz oder (sehr) lang die exakte Farbe des Mattscheibenpunktes auf sieben Stellen hinter 
dem Komma genau im Bereich von null bis eins. Die Farbe setzt sich aus den Intensitätswerten 
für jede der drei Grundfarben Rot, Grün und Blau zusammen. Diesen ermittelten Farbwert (er 
befindet sich in der Punktstruktur) übergibt do_program() der Routine plot(), die sich alle 
Mühe gibt, einen Punkt in etwa dieser Farbe auf den Bildschirm zu bringen (bei maximal 64 
Farben ist das schon ein Problem). Haben wir diese Aktion auch hier erfolgreich abgeschlos¬ 
sen, dann testet die Routine noch kurz auf einen Tastendruck (Sie können ja stets per < Esc > 
unterbrechen) und nimmt sich dann den nächsten Punkt vor. 

ray_trace(): 

ray_trace() ist wohl eine der wichtigsten Funktionen im ganzen Programm überhaupt j da sie 
einen Strahl »verfolgt« und alle Schnittpunkte dieses Strahles mit allen Objekten der Welt 
berechnet. Sie wählt sich den nächsten Schnittpunkt (zum Fixpunkt des Strahles) aus und ermit¬ 
telt dann die Farbe dieses Objektpunktes. Sie ist auch deshalb sehr wichtig, da sie bei verspie¬ 
gelten Objekten rekursiv aufgerufen werden kann. 

Wie viele zentrale Funktionen ist auch ray_trace() recht klein und überschaubar, da sie 
meist nur als »Schaltstelle« fungiert, die eigentlichen Aufgaben und die »Details« also anderen 
Routinen überläßt, die sie aufruft. So muß ja zunächst einmal der nächste Schnittpunkt ermittelt 
werden. Diese Aufgabe übernimmt die Funktion schnitt_objs(), die den Objekttypen des 
nächsten Objektes übergibt und den s-Wert der Geradengleichung, an der der Schnittpunkt 
liegt. Berechnet wird also noch nicht unbedingt der Schnittpunkt selbst in Koordinatenform, 
sondern nur als s-Parameter (Verlängerungsfaktor) für die vektorielle Geradengleichung (aus 
dem der Punkt natürlich jederzeit ermittelt werden kann). Mit diesen Informationen kann 
ray_trace() nun gezielt die Routinen anspringen, die die Objektfarben an diesem Punkt 
ermitteln: hintergrundfarbe(), lichtfarbe(), kugelfarbe(), flaechenfarbe(). 

schnitt_objs(): 

Die Zentrale der Schnittpunktberechnungen schnitt_objs() ist selbstverständlich wieder nur 
eine Schaltstelle für die einzelnen, sehr unterschiedlichen Routinen, die jeweils den Schnitt¬ 
punkt einer Kugel oder einer Fläche etc. mit dem Sichtstrahl ermitteln: schnitt_kugel_a(), 
schnitt_flaech(). Für jeden Objekttyp ist hier eine FOR-Schleife eingerichtet, die nach und 
nach alle im Objektarray gespeicherten Objekte abklappert. Falls es einen Schnittpunkt mit dem 
jeweiligen Objekt gibt, dann wird geprüft, ob er (repräsentiert durch den s-Wert) näher am Beob¬ 
achter liegt als der bisher nächste Schnittpunkt. Ist das der Fall, dann speichert die Routine das 
s und die Adresse auf die jeweilige Objektstruktur (eigentlich der Pointer auf das erste WORD 
der Objektstruktur, den Objekttyp) und lahrt mit dem nächsten Objekt fort. Bei den Flächen wer¬ 
den zusätzlich noch die dort bereits berechnet vorliegenden Schnittpunktkoordinaten sowie die 
m- und k-Werte der Ebenengleichung (also die Position des Schnittpunktes auf der Ebene) 
registriert, die später noch benötigt werden (es soll ja nichts doppelt berechnet werden). 
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Sind auf diese Weise alle Objekte der Welt überprüft und hat sich kein einziger Schnittpunkt 
ergeben, dann muß wohl oder übel der Hintergrund einspringen. Die Routine gibt mit der etwas 
monströs aussehenden Anweisung 

return (»*objekt); 

den nächsten Objekttypen (der ja in jeder Objektstruktur steht) zurück, speichert noch schnell 
s in der Punktstruktur und verabschiedet sich. 


Die Schnittpunktberechnungen: 

schnitt_kugeLa(): 

Viel brauchen wir hierzu nicht zu sagen, da bereits alles in den theoretischen Abhandlungen 
erläutert wurde. Die Routine berechnet den (die) Schnittpunkt(e) zwischen dem übergebenen 
Strahl und einer ebenfalls angegebenen Kugel, überprüft jedoch gleichzeitig, ob das gefundene 
kleinere s (es existieren ja immer zwei Schnittpunkte - wenn sie existieren - den Fall einer 
Berührung einmal beiseite gelassen) größer Null ist (besser: größer fast-null wegen der Rechen¬ 
ungenauigkeit). Ist das nicht der Fall, so berechnet sie das größere s als Schnittpunkt (man 
befindet sich dann also als Beobachter in der Kugel). 

schnitt_flaech(): 

Auch hierzu ist nicht viel zu erzählen. Die mathematischen Grundlagen lesen Sie am besten 
weiter oben nach. Bemerkenswert ist vielleicht noch eine Stelle ganz zu Anfang der Routine. 
Hier überprüft das Programm, ob der Normalenvektor der Ebene, der hier ja benötigt wird, 
bereits in der Ebenenstruktur der Fläche eingetragen ist. Ist das nicht der Fall, berechnet das 
Programm ihn noch schnell durch ein Vektorprodukt, speichert ihn in der Ebenenstruktur und 
gibt ihn als gültig für alle Zukunft frei (n_valid). Eür diese Eläche braucht also nie wieder der 
Normalenvektor ermittelt werden! 

Gehen Sie jetzt bitte zurück zur Eunktion ray_trace(). Die Schnittpunktberechnungen haben 
wir hinter uns gelassen. Das naheliegendste Objekt ist ermittelt und steht mittlerweile in 
obj_typ. Nun gilt es, die Earbe des Schnittpunktes mit dem Objekt zu bestimmen. Je nach¬ 
dem, um welches Objekt es sich handelt, springt die Routine nun per SWITCH-Anweisung zu 
den Earbberechnungsroutinen der einzelnen Objekttypen: 


Farbberechnungen: 

Bei den Farbberechnungen der einzelnen Objekte dürfen Sie nun voll Ihre Phantasie spielen 
lassen. Was Ihnen gerade einfallt an Oberflächenstrukturen, Farbverläufen oder sonstigen 
»Spielereien«. 

hintergrundfarbef): 

Na, endlich mal wieder etwas Einfaches. Die Hintergrundfarbe braucht nämlich nur aus der 
Hintergrundstruktur übernommen werden. Sie könnten an dieser Stelle vielleicht einen kleinen 
Earbverlauf o.ä. programmieren. Da die Berechnung der Hintergrundfarbe so ausgesprochen 
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schnell vonstatten geht, werden diejenigen Passagen, auf denen nichts zu sehen ist, ebenfalls 
besonders schnell gezeichnet (Sie können das leicht am Bildschirm nachverfolgen). 

lichtfarbe(): 

Auch das ist kein Problem. Im Licht kann sich nichts spiegeln, verzerren oder sonstiges. 

kugelfarbe(): 

Hat der Strahl eine Kugel getroffen, dann wird es schon etwas kostspieliger, ein schönes Bild 
zu schaffen. Dann nämlich werden Sie sehen, wie zum ersten Mal die Formeln für die diffuse 
und spiegelnde Reflexion eingesetzt werden. Aber dazu benötigt man zum einen die Koordina¬ 
ten des Schnittpunktes, zum anderen den Normalenvektor, also den Vektor senkrecht zur Kugel¬ 
oberfläche, wenn Sie sich erinnern. Also berechnet Ihr Amiga folgerichtig die notwendigen 
Teile; den Schnittpunkt aus der Geradengleichung des Strahles und dem Verlängerungsfaktor 
s (aus den Schnittpunktberechnungen), die Normale als Vektor vom Kugelmittelpunkt zum 
Schnittpunkt. 

Ferner ermittelt er die Grundfarbe des Objektes, die ja durch die Reflexionsformeln zu verän¬ 
dern ist. Mit diesem Gepäck startet die Routine kugelfarbe() die zentrale Funktion zur Berech¬ 
nung der Punktintensität farbintens(). Da diese Routine nicht von objektspezifischen Eigen¬ 
arten abhängig ist (Bezugsgröße sind ja nur Schnittpunkt, Normale, Punktfarbe und die 
neutralen Materialkonstanten selbstverständlich), wird sie von allen Objekten (außer Licht¬ 
quellen und Hintergrund natürlich) angesteuert. Hier »treffen« sie sich also wieder. 

flaechenfarbe(): 

Natürlich ist das Ziel dieser Routine identisch mit dem der soeben besprochenen: Schnittpunkt, 
Normale, Punktfarbe. Trotzdem ist sie um einiges länger. Das liegt an den vielen zusätzlichen 
Oberflächeneffekten, die bei diesen Flächen angewählt werden dürfen: Normal einfarbig, zwei¬ 
farbig kariert und zweifarbig mit einem beliebigen Muster versehen. Das hört sich doch schon 
einmal gut an, oder? 

Der Schnittpunkt des Strahles mit der Fläche ist bereits bekannt! Weiter oben bei der Schnitt¬ 
punktberechnung wurde er bereits einmal ermittelt und steht uns seitdem zur Verfügung - eine 
Arbeit weniger. Auch der Normalenvekor stellt nun kein Problem mehr dar, auch er wurde dort 
bereits berechnet (er steht nun in der Ebenenstruktur der Eläche). 

Bleibt nur noch die Bestimmung der Grundfarbe des Objektes. Dafür aber wurden vom Pro¬ 
grammierer drei Eälle per SWITCH unterschieden. In der Materialstruktur gibt es nämlich ein 
Byte mit dem Namen oberf_typ. Hier legen Sie eine einfache Zahl ab für die Art und Weise 
der Oberflächengestalturig: 

oberf_typ = 0: 

Das ist der einfache, der bekannte Fall: Die Routine nimmt sich die Grundfarbe des Objektes 
direkt aus der Farbanweisung der Materialstruktur, das Objekt ist einfarbig. 
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oberf_typ = 1: 

Eine Eins in besagtem Byte gibt an, daß das Objekt (hier also die Fläche) kariert sein soll. Die 
zwei Farben für die Karos stammen dann aus den ersten beiden Farbregistern der Materialstruk¬ 
tur. Zusätzlich geben Sie in der Musterstruktur innerhalb der Materialstruktur noch zwei Werte 
an: die Anzahl der Karos in x- und die in y-Richtung bezüglich des Flächennullpunktes (PO), 
mit anderen Worten in m- und k-Richtung, wenn wir einmal von der vektoriellen Ebenenglei¬ 
chung ausgehen. 

Jetzt braucht nur noch ermittelt zu werden, in welchem Karo (Farbe 1 oder Farbe 2) sich der 
Punkt gerade befindet, und die Farbe ist gewonnen. 

oberf_typ = 2: 

Das ist eine ganz trickreiche Sache! Bei dieser Einstellung können Sie ein 16x 16-Punkte- 
Muster selbst definieren und Ihr Objekt bekommt auf einmal Streifen, Punkte, oder auch kleine 
Beschriftungen! Gleichzeitig stellen Sie ein, wie oft sich das Muster auf der Fläche (wieder in 
m- und k-Richtung) befinden soll. Sie dürfen sich also entscheiden, ob Ihre Amiga-Aaas richtig 
groß und protzig oder nur klein und dürr auf Ihrer Tapete erscheinen sollen. Auch hier stammen 
die beiden zur Verfügung stehenden Farben aus den beiden ersten Farbregistern. 

farbintens(): 

Wie bereits erwähnt, treffen sich hier alle Routinen wieder, die die Farbe eines Objektes bzw. 
eines Objektpunktes berechnen sollen. farbintens() verlangt die Angabe des Normalenvektors, 
des Sichtstrahles, der Punktstruktur (mit den Koordinaten des Punktes und dem Intensitätsbei- 
wert), der Materialstruktur des Objektes und natürlich der Weltstruktur (alles in Pointern). 

Die erste Entscheidung, die das Programm zu fallen hat, ist die Frage, ob das Objekt verspiegelt 
ist oder nicht. Ist das tatsächlich der Fall (die Variable licht_typ in der Materialstruktur ent¬ 
scheidet das), dann wird die Spiegelroutine eingeleitet. Im Endeffekt besteht sie darin, den 
Reflexionsstrahl zu berechnen (Einfallswinkel gleich Ausfallswinkel, Sie kennen das aus den 
mathematischen Ableitungen) und dann eine Rekursion einzuleiten, indem die Routine 
ray_trace() mit dem Reflexionsstrahl als Sichtstrahl erneut aufgerufen wird. Das heißt also, 
es wird das nun naheliegendste Objekt gesucht, das natürlich wieder verspiegelt sein kann usw. 
Das darf natürlich nicht unendlich so weitergehen. Stellen Sie sich einfach einmal zwei verspie¬ 
gelte Flächen vor, die parallel zueinander verlaufen. Jeder Spiegel würde sich unendlich oft in 
dem anderen spiegeln. Unser Programm »hängt sich auf«. 

Benötigt wird also ein Abbruchkriterium für diese Rekursion. Und dazu muß der sogenannte 
Intensitätsbeiwert herhalten. Für jedes verspiegelte Objekt müssen Sie eine Spiegel- 
Intensitätszahl (spiegel_int[ ], von 0 bis 1) in der Materialstruktur angeben. Sie gibt an, wie¬ 
viel Prozent des Lichtes von der verspiegelten Fläche tatsächlich gespiegelt wird (kein Spiegel 
reflektiert nämlich das gesamte einfallende Licht!). Diese Zahl (jeweils für RGB - es können 
also auch »farbige« Spiegel programmiert werden) nimmt das Programm dann mit dem 
aktuellen Intensitätsbeiwert mal, der damit also von Spiegelung zu Spiegelung kleiner wird 
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(es sei denn, Ihre Spiegel reflektieren hundertprozentig oder gar mehr). Sobald dieser Wert 
unter eine bestimmte Grenze fallt (schwarz), endet die Rekursion, da nicht mehr genügend 
Licht zum Spiegeln vorhanden ist. 

Um die Zahl der Rekursionen aber in jedem Fall unter einem bestimmten Wert zu halten (sonst 
läuft ganz sicher irgendwann der Stack über und Ihr Amiga stürzt ab), zählt das Programm 
gleichzeitig die Zahl der Rekursionen in der globalen Variable rekur_zaehl. Ist rekur_zaehl 
größer als REKUR_MAX, die maximal erlaubte Anzahl an Rekursionen (hier 7), dann wird 
ebenfalls abgebrochen. 

Beachten Sie, daß zur Rekursion in der Routine farbintens() eine nagelneue lokale Punkt¬ 
struktur und eine ebenso nagelneue und lokale Geradenstruktur eingerichtet wird! Schließlich 
müssen die alten Strukturen auch noch über die Rekursion hinweg erhalten bleiben. 

Angenommen, die rekursiv aufgerufene Routine ray_trace() kehrt ordnungsgemäß zurück 
(was ja hoffentlich immer passiert!). Sie hat dann die Farbe des Punktes auf dem nächsten 
Objekt errechnet und in der Punktstruktur abgelegt. Diese (neue) Punktstruktur wird nun nicht 
mehr benötigt. Lediglich der errechnete Farbwert muß in die alte übertragen werden, da mit 
ihm ja noch weitergerechnet werden soll. Das geschieht mit dem COLLET-Makro. 

An dieser Stelle treffen sich die beiden Fälle (verspiegelt oder nicht verspiegelt) wieder. Jetzt 
beginnt nämlich die Berechnung der spiegelnden und diffusen Reflexion. Dabei berücksichtigt 
das Programm in einer großen Schleife das Licht, das von allen Lichtquellen eventuell auf das 
Objekt fallt. Zunächst aber muß getestet werden, ob der zu berechnende Punkt überhaupt von 
der jeweiligen Lichtquelle angeschienen wird. Es kann ja sein, daß sich irgend ein anderes 
Objekt zwischen Punkt und Lichtquelle geschoben hat und den armen Punkt im wahrsten Sinne 
des Wortes ein Schattendasein fristen läßt. 

Wieder ist ein neuer Strahl zu berechnen, diesmal vom Punkt zur Lichtquelle (die Lichtquelle 
wird hier der Einfachheit halber als punktförmig idealisiert, obwohl sie ja einen Radius besitzt). 
Was ist nun zu tun? Die Frage lautet: Gibt es ein Objekt, das zwischen Punkt und Lichtquelle 
steht? Oder für unsere Zwecke ausgedrückt: Gibt es ein Objekt, das von dem Strahl zur Licht¬ 
quelle geschnitten wird? 

Die Antwort auf diese Frage liefert uns wieder die globale Routine zur Berechnung des nächsten 
Schnittpunktes schnitt_objs(), die bereits oben beschrieben wurde. Das Ergebnis dieser 
Funktion werten wir diesmal allerdings ein wenig anders aus. Die Routine wird nämlich in 
jedem Fall mindestens einen Schnittpunkt ermitteln, nämlich den mit der angepeilten Licht¬ 
quelle (so wurde der Strahl schließlich konstruiert). Findet die Routine genau diese Lichtquelle 
als naheliegendstes Schnittobjekt, dann ist die Sache geritzt, der Punkt liegt also nicht im Schat¬ 
ten, die Berechnung der Reflexionsformel kann beginnen. Findet schnitt_objs() allerdings 
ein anderes Objekt (festzustellen an der ermittelten Objektadresse), dann wird der Punkt 
»beschattet«, erhält von der momentan zur Debatte stehenden Lichtquelle also kein Licht. 

Die Formel zur Berechnung der beiden Reflexionsarten kennen Sie bereits. Sie muß selbstver¬ 
ständlich schön separat und getrennt für jede der drei Grundfarben Rot, Grün und Blau ermittelt 
werden. Halten wir uns also nicht länger damit auf. 
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Das Programm arbeitet auf diese Weise alle Lichtquellen ab. Bleibt nur noch die Hintergrund¬ 
helligkeit (Streulicht) Ih*Koh. Sie wirkt ja auf jeden Punkt ein und muß damit am Ende noch 
hinzuaddiert werden. Die Farbe des Punktes ist perfekt und die Routine hat ein Ende. 

plot( ): 

Tja, da sind wir nun wieder in der guten alten Hauptschleife von do_program(). ray_ 
trace() haben Sie genauso wie der Autor hinter sich gelassen. Vor uns liegt die Krönung aller 
komplizierten Rechnungen: plot(), die Punktausgabe. Sie hat dem Programmierer noch das 
meiste Kopfzerbrechen beschert, da er mit den wenigen zur Verfügung stehenden Farbregistern 
auskommen mußte, obwohl die Farbe des Punktes tatsächlich auf sieben Stellen hinter dem 
Komma genau berechnet vorliegt, zahlreiche Schattierungen ein und derselben Farbe berück¬ 
sichtigt werden müssen und trotzdem noch ein möglichst wirklichkeitsnahes Bild erzeugt wer¬ 
den sollte. Ich bin mir darüber im klaren, daß die hier gefundene Lösung nicht unbedingt die 
beste sein muß. Vielleicht haben Sie ja die Hyper-Idee und schreiben mir mal? Diese Routine 
ist aber auch die einzige, die bei einem Wechsel auf einen anderen Computer verändert werden 
müßte (evtl, noch init_farben()). Alle anderen sind praktisch für einen idealen Computer mit 
mehreren Millionen Farben (gleichzeitig) und fast beliebig großer Grafikauflösung konzipiert, 
für einen Computer vom Schlage einer Cray II vielleicht? 

Genau in dieser Routine sehen wir uns durch die Fähigkeiten des Rechners stark eingeschränkt, 
aber machen wir das Beste daraus! 

An dieser Stelle muß wohl oder übel ein Wort über die Speicherung der verschiedenen Farben 
fallengelassen werden, wovor wir uns eben bei der Vorstellung von init_farben() gedrückt 
haben. Im Datenteil des Programmes, also ziemlich am Ende, haben Sie die Möglichkeit, die 
Farbzuteilung der Palettenregister vorzunehmen. Hier geben Sie ganz normal für jede Grund¬ 
farbe Werte von 0-15 an. In init_farben() speichert das Programm diese Werte dann in die 
Palettenregister des Rechners und multipliziert die Werte dann aber mit 2'® = 65536. Das hat 
den Zweck, aus Geschwindigkeitsgründen später auch Nachkommastellen der Farbwerte in 
einer Integer-Variablen zu speichern. Gleichzeitig werden in init_farben(), für den Fall, daß 
Sie den Modus EXTRA_HALFBRITE gewählt haben, die entsprechenden Farbwerte für die 
Farben 32-63 errechnet. Dieses Format ist natürlich nur das programminterne, das für den 
Amiga später erst wieder rückgerechnet werden muß. Das klingt alles zwar etwas kompliziert 
und umständlich. Versuche mit Floatingpointzahlen allerdings brachten erhebliche Geschwin¬ 
digkeitseinbußen . 

Schauen Sie jetzt nach plot(). Hier kommt in x,y die Bildschirmkoordinate an, an der der Punkt 
gesetzt werden muß (mit dem Nullpunkt links oben in der Ecke). Ferner wird der Funktion die 
Punktstruktur übermittelt, aus der sie die exakte Farbe des Punktes »extrahiert«. Sie muß in 
einer ersten Phase erst einmal für R, G und B zwischen Null und Eins gebracht werden, da es 
durchaus einmal passieren kann, daß hier vor allem größere Werte übermittelt werden. Gleich¬ 
zeitig rechnet die Routine die Floatingpointwerte in das gerade beschriebene Farbformat um. 
Jetzt sehen Sie, daß auch die Stellen hinter dem Komma nicht vergessen werden! 

Der folgende Schritt ist nun ein wenig kompliziert. Gesucht ist das Palettenregister, das der 
Farbe des Punktes am nächsten kommt. Dazu durchsucht der Rechner alle zur Verfügung 
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stehenden Farben (32 oder 64) und ermittelt die beiden Register, bei denen die Differenz aus 
Registerfarbe und tatsächlicher Punktfarbe am niedrigsten (reg_inin) bzw. am zweitniedrig¬ 
sten (zweit_reg_jnin) ist. 

Normalerweise würde man nun sagen: reg_min ist das Register mit der Farbe, die der Punkt¬ 
farbe am ähnlichsten ist, also sollte der zu zeichnende Punkt auch die Farbe aus reg_min 
erhalten. Im Idealfall haben Sie recht. Sie werden allerdings feststellen - falls Sie sich die Mühe 
machen und das einmal ausprobieren -, daß jedes Objekt dadurch äußerst unangenehme Ringe 
erhält, die sich dort ausbilden, wo gerade ein Farbregister gewechselt wurde. Das liegt daran, 
daß wir den Unterschied zwischen z.B. Rot-Intensität 13 und Rot-Intensität 12 durchaus noch 
deutlich erkennen. 


Die Lösung: Die Grenzbereiche zwischen den Bereichen mit Rot 12 und Rot 13 müssen etwas 
»ausgefranst«, der Übergang also etwas »milder« gestaltet werden. Das erreichen wir mit einer 
kleinen Zufallsfunktion zufall(). Sie produziert bei jedem erneuten Aufruf eine (scheinbar) 
zufällige Zahl zwischen 0 und 256 ($00-$FF). Die Größe dieser Zahl bestimmt nun, ob der 
Punkt mit Rot 12 oder Rot 13 geplottet werden soll. Die Wahrscheinlichkeit für Rot 12 nimmt 
aber stetig ab, je weiter wir in den Bereich von Rot 13 hineingeraten und umgekehrt. Das wird 
mit der kleinen Formel in dem IF-Statement erreicht: 


gz = z -h 


zs*mz 

(zs-es) 


* wk 


es = der Farbunterschied zwischen der erstbesten Farbe und der exakten Farbe des Punktes 

zs = der Farbunterschied zwischen der zweitbesten Farbe und der exakten Farbe des Punktes 

mz = maximale Größe der Zufallszahl (hier 256) 

wk = Wichtungskorrektur 

z = Zufallszahl (von 0 bis mz) 

gz = gewichtete Zufallszahl (von 0 bis 2 » mz) 


»es« und »zs« hat die Routine bereits mit dem besten bzw. zweitbesten Register ermittelt, 
mz ist hier gleich 256 (eigentlich gleich 255, aber wer wollte es beim Zufall schon so genauneh¬ 
men?), die größte mögliche Zufallszahl, z ist die Zufallszahl selbst, sie wird bekanntlich von 
zufall() geliefert. Die »Wichtungskorrektur« wk wurde mit eingeführt, um die Wahrscheinlich¬ 
keit ein wenig in Richtung Erstfarbe zu verschieben. wk bestimmt also die Breite des ausgefran¬ 
sten Bereiches, gz schließlich ist die gesuchte, durch die Formel gewichtete Zufallszahl, die 
irgendwo zwischen null und 512 liegt. 


Ist gz nun größer als 255, dann wird in der besten Farbe gezeichnet, bei gz < = 255, tritt die 
zweitbeste Farbe in Aktion. Das Ergebnis ist dann zwar ein gepunktetes Bild, das läßt sich aller¬ 
dings kaum vermeiden (höchstens durch die Erhöhung der Auflösung, z.B. per Interlace). 
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In Abbildung 6.9 können Sie sich noch einmal den groben Ablaufplan des Ray-Tracing- 
Programmes anschauen. 



Bild 6.9: Ablaufplan Ray-Tracing-Programm 


Was bleibt? Das Ändern der Welt natürlich, was auch sonst! Das geht hier allerdings viel ein¬ 
facher als in der Realität. Schauen Sie sich jetzt einmal die Datenbereiche am Ende des Pro- 
grammes an. Dort finden Sie alle notwendigen Informationen für die gesamte Szenerie, ange¬ 
fangen bei den Palettenfarben über die Beobachterwerte, bis hin zu den Lichtquellen, Kugeln 
und Flächen. Die Funktion der verschiedenen Parameter sollte Ihnen vom Theoretischen her 
nun bereits bekannt sein. Welche Auswirkungen und Effekte in der Praxis nachher bei den 
unterschiedlichsten Konstellationen resultieren, das ist reine Probiersache. Das Gefühl dafür 
bekommen Sie erst im Laufe der Zeit. Beginnen Sie einfach bei simplen und überschaubaren 
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Objekten. Sollten Sie eine ganze Szenerie im Auge haben, dann ist eine Planung auf dem Papier 
anzuraten. Ein Tip zum Ausprobieren: Ändern Sie die Farbe 1 der gelb und schwarz gestreiften 
Tischplatte in dem Beispiel einmal in Weiß und stellen Sie gleichzeitig »VERSPIEGELT« ein 
mit z.B. 60-70 Prozent (0.6-0.7) Spiegelintensität. Der Effekt gleicht einer glatt polierten 
Tischoberfläche, in der sich die Dinge spiegeln, in der aber auch das Streifenmuster noch 
erkennbar ist! Bei jeder Veränderung der Welt sollten Sie aber im Auge behalten, welche Farben 
mit der momentan eingestellten Farbpalette überhaupt möglich sind. Wenn Sie beispielsweise 
ein grünes Objekt implementieren wollen und es ist überhaupt kein Grün in Ihrer Palette, dann 
wählt die Routine plot() irgendeine andere Farbe, die ihrer Ansicht nach paßt. Das gleiche gilt 
bei Farbschattierungen etc. Sollte Ihr Bild einmal farblich nicht nach Ihrer Zufriedenheit ent¬ 
stehen, dann machen Sie sich also zunächst Gedanken über die Farbpalette. Dieser Punkt spielt 
auch dann eine Rolle, wenn Sie in HAM arbeiten. 

Was bei diesem Programm eigentlich noch fehlt, ist eine Funktion, die eine ASCII- 
Defmitionsdatei in die entsprechenden Programmstrukturen übersetzt. Im Moment müssen Sie 
bei jeder Weltveränderung neu kompilieren und linken. Im anderen Fall brauchen Sie z.B. mit 
dem guten alten ED nur eine Änderung in Ihrer ASCII-Datei vorzunehmen und dem Programm 
übergeben. Das wäre doch einmal eine interessante Sache! 

Denkbar wäre auch ein kleiner Grafikeditor, mit dem Sie die Objekte als Drahtmodelle direkt 
auf dem Bildschirm positionieren können. Erst später könnte dann das eigentliche Ray-Tracing- 
Programm aufgerufen werden. 

Oder fügen Sie neue Objekte hinzu, neue Oberflächenstrukturen, vielleicht schieben Sie ja mal 
eine Routine in farbintens() ein, die den Normalenvektor nach bestimmten Kriterien ändert. 
Damit könnten Sie eine rauhe oder buckelige Oberfläche simulieren etc. Ihrer Phantasie sind 
da überhaupt keine Grenzen gesetzt! 

Und nun ans Werk! Ich bin gespannt, was demnächst an Demo-Ray-Tracing-Bildern über die 
Public-Domain-Kanäle fließen wird. Na, denn viel Spaß! - Und Schluß. 


6.5 Durchsichtige Körper oder: Bekanntschaft mit dem 
Brechungsgesetz 

Mit einer möglichen Eigenschaft von Körpern haben wir uns in all den Ausführungen noch nicht 
beschäftigt: Transparenz. Objekte aus Glas oder Acryl etc. können durchsichtig sein. Man kann 
Dinge sehen, die sich hinter diesem Objekt befinden. Je nach Grad der Durchsichtigkeit und 
der Dicke des durchsichtigen Objektes erscheinen sie milchig oder klar, original hell oder dunk¬ 
ler. Ist ein Objekt nur für bestimmte Farben durchsichtig (z.B. blaues Glas), dann erscheinen 
die dahinterliegenden Objekte nur in dem durchgelassenen Farbanteil (Blau). 

Selbst wenn ein Ding hundertprozentig lichtdurchlässig ist, erkennen wir es dennoch. Das liegt 
an der sogenannten Lichtbrechung oder Refraktion. Sobald ein Lichtstrahl von einem Medium 
(Luft) in ein anderes Medium (Glas oder Wasser etc.) eintritt, verändert er seine Richtung. Die 
quantenmechanische Begründung sparen wir uns hier. Wir nehmen es als Tatsache hin. 
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Durch diese Lichtbrechung kann es passieren, daß wir hinter einem durchsichtigen Gegenstand 
an einer Stelle Dinge sehen, die sich eigentlich an einer ganz anderen Position befinden. Halten 
Sie einmal einen geraden Stab zur Hälfte ins Wasser. Sie werden meinen, der Stab sei an der 
Stelle, an der er ins Wasser taucht, leicht umgebogen. Linsen, wie sie in Fernrohren oder Foto- 
Objektiven Verwendung finden, arbeiten nach dem gleichen Prinzip. 

Licht verändert also seine Richtung, wenn es in einen durchsichtigen Gegenstand eintritt. Es 
verändert aber ebenso seine Richtung, wenn es wieder hinaustritt. Das physikalische Gesetz, 
das dieses Phänomen beschreibt, nennt sich Brechungsgesetz und lautet (s. Bild 6.10): 

ni « sin(ai) = n 2 » sinfai) 

ni,n 2 Brechungsindizes der beiden Medien (Materialkonstanten) ni,n 2 = 1 
ai Eintrittswinkel zwischen der Normalen n und dem eintretenden Strahl S 
a 2 Brechungswinkel zwischen der Normalen n und dem gebrochenen Strahl Sb 



Bild 6.10: Das Brechungsgesetz 

Tritt ein Lichtstrahl von einem optisch dünneren (z.B. Luft, kleinerer Brechungsindex, nl ist 
ungelahr gleich 1) in ein optisch dichteres Medium (z.B. Glas, größerer Brechungsindex), 
dann verläuft der gebrochene Strahl im zweiten Medium näher zur Senkrechten 
(ni<n 2 => a 2 <ai). Im umgekehrten Fall, beim Übergang vom optisch dichteren zum 
optisch dünneren Medium dagegen, liegt er weiter vom Lot entfernt (ni > n 2 => a 2 > ai). Im 
letzten Fall kann es dazu kommen, daß 32 gleich 90 Grad wird (sin(a 2 ) = 1). Da der Sinus nicht 
größer 1 werden kann, kommt es bei 32 > 90 zu einer Totalreflexion (Spiegelung) des Strahles 
zurück ins dichtere Medium (also keine Brechung!) 

Noch eine Sache ist wichtig: Nicht das gesamte Licht, das auf die Grenze zweier Medien fällt, 
tritt auch in das Medium ein (und wird dadurch gebrochen). Ein Teil wird ganz normal reflek¬ 
tiert, wie wir das bereits bei normalen Körpern kennengelernt haben. Je größer der Eintritts¬ 
winkel 3] ist, desto mehr Licht wird auch reflektiert. Bei ai = 0 (senkrechter Eintritt) ist die 
Reflexion also gleich Null. Den Effekt können Sie auch in Ihrer Umgebung beobachten: 
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Normalerweise spiegelt sich in einer Fensterscheibe alles mögliche, so daß wir nur schwer hin¬ 
einschauen können. Je senkrechter wir allerdings auf die Scheibe schauen, desto geringer wer¬ 
den die störenden Spiegelungen. 

Ein durchsichtiger Körper weist also wie jeder andere Körper auch spiegelnde und diffuse 
Reflexionen auf. Das Maß der Reflexion hängt dann allerdings vom Eintrittswinkel des Lichtes 
ab. 

Wir können unser Beleuchtungsmodell also noch um die Lichtbrechung bei durchsichtigen 
Körpern erweitern. Der Sichtstrahl muß nach den Regeln des Brechungsgesetzes (eventuell 
unter Berücksichtigung von Reflexion und Totalreflexion sowohl für Sichtstrahl als auch für 
eventuelle Lichtquellen) abgelenkt in den Körper eindringen. Beim Austritt sind die gleichen 
Gesetze zu berücksichtigen. Der so unter Umständen mehrmals abgelenkte Strahl kann dann 
wieder als ganz normaler Sichtstrahl behandelt werden. Auf diese Weise sind beispielsweise 
Vergrößerungs- oder Verkleinerungslinsen zu simulieren o.ä., wodurch besondere Effekte 
erzielt werden können. 
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Kapitel? 
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Dieses Kapitel soll für eine kleine, aber interessante Anwendung zur dreidimensionalen Grafik 
Platz bieten. Einige Ideen kennen Sie bereits aus den vergangenen Kapiteln. Hier finden Sie 
zusätzliche Anregungen und Augenweiden. 

Wir beschäftigen uns mit sogenannten Rotationskörpern. Dies sind teilweise komplizierte 
Gebilde, die aber relativ einfach zu konstruieren sind und deswegen in vielen 3-D-Systemen 
Verwendung finden. 


7.1 Was sind Rotationskörper? 

Bisher haben wir uns bei dreidimensionalen Darstellungen mit relativ einfachen Körpern 
beschäftigt. Das lag vor allem an dem Aufwand, den die Eingabe von vielen Eckpunkten und 
entsprechend vielen Linien macht. Die Darstellungen blieben oft recht eckig und kantig. Die 
Implementierung von runden Körpern (abgesehen einmal von der Ray-Tracing-Technik) macht 
normalerweise gehörige Probleme ob der Vielzahl von Ecken und Kanten. 

An dieser Stelle möchten wir eine Technik einführen, die es auf einfachste Weise erlaubt, solche 
runden Körper zu produzieren. Beschränkt bleiben wir allerdings auf achsensymmetrische, 
sogenannte Rotationskörper, was allerdings keine besondere Einschränkung darstellt, da wir 
diese runden Körper ja mit eckigen Körpern kombinieren können. 

Der Trick: Eingegeben werden nur wenige, ganz bestimmte Punkte, der Rest wird vom Pro¬ 
gramm aufgrund einer Rechenvorschrift für Rotationskörper errechnet. 



Bild 7.1: Generierung eines Rotationskörpers 
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Die Eingabe der notwendigen Defmitionspunkte erfolgt in einem zwei(!)-dimensionalen Koor¬ 
dinatensystem, also in der x-y-Ebene mit z = 0. Hier können Sie nun ein beliebiges Gebilde mit 
beliebig vielen Punkten an ebenso beliebigen Stellen erschaffen. Jeder Punkt ist mit seinem 
Vorgänger durch eine Linie verbunden (s. Bild 7.1). Im einfachsten Fall verbinden Sie einfach 
zwei Punkte miteinander. 

Um nun die Dimensionen der Ebene zu überwinden, rotieren wir die gesamte Zeichenebene 
mit einem beliebigen nicht zu großen und nicht zu kleinen Winkel um die y-Achse - jeder ein¬ 
zelne Punkt, jede Linie der Ebene wird mit rotiert. Die neuen Positionen der Punkte werden 
sich wie die alten in einer Punkteliste gemerkt. Auch die Linien müssen gespeichert werden. 
Im nächsten Schritt wird diese letzte Ebene um den gleichen Winkel noch einmal rotiert. Wie¬ 
der speichert man die Punkte und Linien usw. Die ganze Operation wird so lange wiederholt, 
bis eine vollständige Umdrehung von 360 Grad durchgeführt wurde. Das Ergebnis ist der Ein¬ 
druck eines runden Körpers, angenähert durch die vielen Drehungen. 

Wenn nun noch jeder gedrehte Punkt mit seinem Ursprungspunkt verbunden wird, dann setzt 
sich der Körper aus vielen kleinen viereckigen Polygonen zusammen. Je kleiner die Dreh¬ 
schritte, desto runder erscheint das Gebilde. 

Aus der Liste der Punkte und Linien generieren wir noch eine Flächenliste. Alle Listen werden 
zusammengelinkt zu einem Objekt, und schon können wir es haargenau so handhaben wie ein 
ganz normales dreidimensionales Objekt, wie wir es bereits kennengelernt haben: Das Objekt 
seinerseits kann skaliert, verschoben, rotiert, projiziert werden. Flächen können Flächen ver¬ 
decken usw. 

Das einzige Problem ist die Reservierung von genügend Speicherplatz, da sich die Anzahl der 
Punkte, Linien und Flächen ja summiert. Wenn w der Schrittwinkel zur Erzeugung des Rota¬ 
tionskörpers aus einer Ebene ist, P die Anzahl der Punkte in der Ebene, dann gilt für die Anzahl 
der zu speichernden Punkte, Linien und Flächen: 

Punkte: Pges = 360/w * P 
Linien: Lges = 360/w » (2»P-1) 

Flächen: Fges = 360/w » (P-1) 

w sollte immer ein Teiler von 360 Grad sein, ansonsten muß der Quotient 360/w aufgerundet 
werden. Bei einem Rotationsschrittwinkel von 10 Grad mit nur 6 Definitionspunkten in der 
Ebene hieße das: 

Anzahl der Punkte: Pges = 216 
Anzahl der Linien: Lges = 396 
Anzahl der Flächen: Fges = 180 
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7.2 Die Anwendung für 3-D-Grafiken 

Das folgende Basic-Programm erzeugt einen von Dinen zu editierenden Rotationskörper und 
stellt ihn vollständig transformiert, projiziert mit verdeckten Flächen, auf dem Bildschirm dar. 
Dabei wird sogar eine Lichtquelle berücksichtigt, deren Position frei wählbar ist. Sie werden 
Ihre helle Freude haben: 



Bild 7.2: Rotationskörper 1 


' **ltlt*lt***)t**lt*lt***»5t*** 

*¥i 

Rotationskörper itit 
** 

' it***it*K***it******itit*»itit 

'Speicherbedarfsrechnung: 

'Maximalwerte je nach verfügbarem Speicherplatz einstellen: 
DATA 15, 45 

READ MAX.ECKP^ 'Maximale Zahl der Eckpunkte 
READ MAX.ROTS^ 'Maximale Zahl der Rotationen 

'Speicherbedarf der Flächenarrays: 
max.flaech& = MAX.ROTS^ * (MAX.ECKP^-l) * 26 
'Speicherbedarf der Punktearrays: 
max.punkteSc = MAX.ROTS^ » MAX.ECKP^ * 24 
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'Gesamter Speicherbedarf: 

spelcher& = max.flaech& + max.purLkte& + 30000 

IF FRE(-1)+FRE(0) <= speicher& + 640008c THEN 
PRINT "Nicht genügend Speicherplatz!!!" 

PRINT : PRINT "zur Zeit notwendiger Platz:" 

PRINT "für Punkte: "jmax.puhkte? 

PRINT "für Flächen: ";max.flaech^ 

PRINT "gesamt: speichert : PRINT 

PRINT "Verringern Sie im Programm die maximalen Werte 

PRINT "für die Zahl der Eckpunkte und/oder" 

PRINT "für die Zahl der Rotationen!" 

PRINT : PRINT "zur Zeit maximale Werte für:" 

PRINT "Eckpunkte: "jMAX.ECKP? 

PRINT "Rotationen: "jMAX.ROTS^ 

END 
END IF 

' Speicher reservieren: 

CLEAR jSpelcherSc 
RESTORE 

READ MAX.ECKP? 'Maximale Zahl der Eckpunkte 
READ MAX.ROTS^ 'Maximale Zahl der Rotationen 

PI = 3.141593 

'Einen neuen Bildschirm mit Fenster öffnen: 
anz.farben? = 16 
SCREEN 2,640,200,4,2 

wx^ =631 

\ry% = 186 

WINDOW 2,"Rotationskörper",(0,0)-(wx^,wy^),4+8,2 

blauf = 0 'Blaufaktor 
gruenf = 0 'Grünfaktor 
rotf = 1 'Rotfaktor 

blauadd = .1 'Blau-Zusatz 
gruenadd = .1 'Grün-Zusatz 
rotadd = 0 'Rot-Zusatz 

'Farben belegen: 

FOR 1=2 TO anz.farben%-l 
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färbe = INT (iif 100/15 + .5)/100 
rot = farbe*rotf+rotadd 
gruen = farbe^gruenf+gruenadd 
blau = farbeitblauf+blauadd 
IF rot>l THEN rot=l 
IF gruen >1 THEN gruen=l 
IF blau>l THEN blau=l 

PALETTE i,rot,gruen,blau 
NEXT 1 

PALETTE 0,0,0,0 'Hintergrund: schwarz 
PALETTE 1,1,.8,.13 'Rahmenfarbe 

' Start-Transformationsparameter: 

' Skalierung: 

sx = 1 : sy = 1 : sz = 1 

' Translation: 

tx = 0 : ty = 0 : tz = 0 


' Rotation: 

rx = 10 : ry = 0 : rz = 0 


' Beobachter: 

bx = 0 : by = 0 : bz = 5000 


' Lichtquelle: 

Iq.xSt = 900 : Iq.ySc = 1000 : lq.z& = -500 

' Lichtlntensltät/Flächenintensität: 
li.lnt = .7 : fl.int = 1 : hin.int = .3 

' Ebenentranslation: 

tex = INT(wx^/2) : tey = INT(wy^/2) 

' Ebenenskaiierung: 
sex = 1 : sey = 1 

' Start-Anzahl der Rotationen für Körper: 
anz.rots^ = 8 

' Umrechnung der Drehwinkel ln RAD: 

rx = rx*PI/180 : ry = ryxPI/180 : rz = rz*PI/180 
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'Drehinkrementwert (Grad): 
dig = 10 

dl = PI dlg/180 'Umrechnung nach RAD 

'Beobachterinkrementwert: 
blnc = 100 

POKE WIND0W(8)+27,1 'Farbe des Area-Outllne-Pen 

flags = WIND0W(8)+32 

POKEW flags,PEEKW(flags) OR 8 'Area-Outllne-Flag setzen 

'Rotationskörper erstellen, Objekt-Daten 
'ln Arrays vorbereiten und 
'folgende Arrays definieren: 

'xr(), yr(), zr() - Koordinaten der Raumpunkte 

'xe(),ye(),ze() - Transformierte Koordinaten 

'fld^(,) - Flächendefinitionen 

'flz^(,) - zu zeichnende Flächen 

'sort.f^O - Sortierte Indizes der Flächen 

'mlt.zO - Array gemittelter z-Werte der Flächen 

'färben0 - Farbintensitäten aller zu 

' zeichnender Flächen 

get.rotkoerper(-l) 


'Hauptschlelfe: 

flag^=0 

WHILE flag^Ol 

IF flagiS<>-999 THEN 

transform 'Alle Punkte transformieren 

verdecke 'Verdeckte Flächen ausflltern 

'(und Farben ermitteln) 
Projektion 'Alle Punkte projizieren 

END IF 

CLS 'Fenster löschen 

PATTERN &HFFFF 'Linienmuster = durchgezogen 
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'Objekt zeichnen: 

FOR 1=0 TO afz^-1 

flaech.nr^ = sort.f?(l) 

FOR k=0 TO 3 

punkt.nr? = flz?(flaech.nr^,k) 
yi% - tex + sexxxe(punkt.nr^) 

= tey - sey*ye(punkt.nr^) 

IF x^<0 THEN x^ = 0 
IF yL%>=wx% THEN x% = vx%-l 
IF y^<0 THEN y% = 0 
IF 'g%>=W3% THEN -g% = wy^-1 

AREA (x^,y^) 

NEXT k 

COLOR INT(farbe(flaech.nr^)*l4)+2 'Farbwert einstellen 
AREAFILL 0 'Fläche zeichnen 

NEXT 1 

maus^ = 0 : flag^=0 

WHILE maus^<>l AND flag^=0 

SLEEP 'Auf Ereignis warten 

'Mauskoordinaten als neue Nullpunkt- 
'Koordinaten übernehmen: 
maus?=M0USE(0) 

IF maus?=l THEN 
tex = M0USE(3) 
tey = M0USE(4) 

flag^ = -999 'Flag für nur Zeichnen 
END IF 


'Alle Flächen 
'zu zeichnende Flächennr. 
'Alle Eckpunkte der Fläche 
' Punktnummer 
' Punktkoordinaten 


c.h% = ASC(INKEY$+CHR$(0)) 
IF ch5?=31 THEN 
rz=rz-di 
flag^ = -1 
END IF 

IF ch;S=30 THEN 
rz=rz+dl 
flag^ = -1 
END IF 


'Cursor links => 

'z-Achsendrehwinkel erniedrigen 
'Flag für Neuzeichnen 

'Cursor rechts => 

'z-Achsendrehwlnkel erhöhen 
'Flag für Neuzeichnen 
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IF ch^=28 THEN 'Cursor hoch => 

rx=rx-dl 'x-Achsendrehwinkel erniedrigen 

flag^ = -1 'Flag für Neuzeichnen 
END IF 

IF ch^=29 THEN 'Cursor runter => 

rx=rx+di 'x-Achsendrehwinkel erhöhen 

flag? = -1 'Flag für Neuzeichnen 
END IF 

IF ch^=127 THEN 'Del => Flächenbegrenzungen ein/aus 
POKEW flags,PEEKW(flags) XOR 8 
flag^ = -999 'Flag für nur Zeichnen 
END IF 

IF ch^=43 THEN '+ => Skalierung auf 
sx = sx+.l 
sy = sy+.l 
sz = sz+.l 
flag« = -1 
END IF 

IF ch?=45 THEN '- => Skalierung ab 
sx = sx-.l 
sy = sy-.l 
sz = sz-.l 
flag? = -1 
END IF 

IF ch^=56 THEN '8 => Beobachter entfernen 
bz = bz-binc 
flag^ = -1 
END IF 

IF ch^=50 THEN '2 => Beobachter annähern 
bz = bz+binc 
flagSS = -1 
END IF 

IF ch%=139 THEN 'Help => Rotation = 0 
rx = 0 
ry = 0 
rz = 0 
flag^ = -1 
END IF 

IF ct\%=21 THEN 'Esc => Objekt neu erstellen 
get.rotkoerper(O) 
flag^ = -1 
END IF 
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IF ch^=129 THEN 'Fl => Rotationszahl ändern 

LOCATE 1,1 : PRINT "Neueingabe der Rotationszahl:" 

PRINT "Momentane Anzahl der Rotationen: ";anz.rotS/S 
PRINT "Neue Anzahl der Rotationen: : INPUT anz.rots^ 

IF anz.rots^ > MAX.R0TS% THEN 
anz.rots^ = MAX.ROTS^ 

PRINT 

PRINT "Zahl war zu hoch! Es wurde der maximal" 

PRINT "zulässige Wert ";MAX.ROTS?;" gewählt." 

END IF 

get.rotkoerper(1) 
flag^ = -1 
END IF 

IF ch^=8 THEN 'Backstep => Farbwechsel 
'Farbparameter rotieren: 
zwls = rotf 
rotf = gruenf 
gruenf = blauf 
blauf = zwls 
zwls = rotadd 
rotadd = gruenadd 
gruenadd = blauadd 
blauadd = zwls 

'Farben belegen: 

FOR 1=2 TO anz.farben^-1 

färbe = INT(1*100/15 + .5)/100 
rot = farbe*rotf+rotadd 
gruen = farbe*gruenf+gruenadd 
blau = farbe*blauf+blauadd 
IF rot>l THEN rot=l 
IF gruen >1 THEN gruen=l 
IF blau>l THEN blau=l 

PALETTE 1,rot,gruen,blau 
NEXT 1 
END IF 

'Falls Fenster geschlossen -> Ende 
IF WIND0W(7)=0 THEN 
flag^=l 
END IF 

WEND 

WEND 
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WINDOW OUTPUT 1 
SCREEN CLOSE 2 

END 


'Rotationskörper berechnen: 

SUB get.rotkoerper(flag^) STATIC 
' flag^ = -1 : Erstaufruf 

' flag^ = 0 : Völlige Neueingabe des Körpers 

' flag^ = 1 : Körper nur neu berechnen 

SHARED anz.rots^, MAX.ROTS?, MAX.ECKP? 

SHARED wx?, wy?, PI 

IF flag? = 0 OR flag? = -1 THEN 

GOSUB edit.koerper 'Körper editieren 

END IF 

PRINT : PRINT "Bitte warten, ich rechne!" 

' Dimensionierungen und Deklarationen: 

IF flag?< >-l THEN 

ERASE xr, yr, zr, xe, ye, ze 
ERASE fld?, flz?, sort.f?, mit.z, färbe 
END IF 

'Punktekoordinaten: 

SHARED ap? 

ap? = anz.rots? * ecken? 'Anzahl aller Punkte 

DIM SHARED xr(ap?-l),yr(ap?-l),zr(ap?-l) 

DIM SHARED xe(ap?-l),ye(ap?-l),ze(ap?-l) 

'Flächendefinitionen: 

SHARED afd?, afz? 

afd? = anz.rots? * (ecken?-l) 'Anzahl aller Flächen 
afz? = afd? 'Anzahl zu zeichnende Flächen 

DIM SHARED fld?(afd?-l,3),flz?(afz?-l,3) 

DIM SHARED sort.f?(afz?-l),mlt.z(afz?-l) 

DIM SHARED färbe(afz?-l) 
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'Alle anderen Punkte und Flächen errechnen: 

FOR 1=0 TO ecken5?-l 

xr(i) = xrot^(i)-INT(wx?/2) 'Eckkoordinaten ins 
yr(l) = INT(wyV2)-yrot^(l) 'Raumpunkt-Array übertragen 
zr(l) = 0 
NEXT i 

ap.% = eckend : alt? = 0 
afd.? = 0 

Inc.w = 2*PI/anz.rots? 'Winkelinkrement berechnen 

'Rotationskörper berechnen: 

FOR w=inc.w TO 2*PI+inc.w/5 STEP inc.w 
IF ap.? = ap? THEN 

ap.? = 0 'Startpunkte = Endpunkte 

ELSE 

sl = SIN(w) : CO = COS(w) 

'Definitionsebene drehen: 

FOR 1=0 TO ecken?-l 

X = xr(i) 'Koordinaten erste Reihe 

z = zr(l) 

xr(ap.?+i) = xxco + z^sl'um die y-Achse drehen 
yr(ap.?+l) = yr(i) 
zr(ap.?+l) = -x^fsl + z*co 
NEXT i 
END IF 

'Flächen konstruieren: 

FOR i=0 TO ecken?-2 

fld?(afd.?+i,0) = alt?+i 'Punktnummern speichern 
fld?(afd.?+i,l) = alt?+i+l 
fld?(afd.?+l,2) = ap.?+i+l 
fld?(afd.?+l,3) = ap.?+l 
NEXT 1 

alt? = ap.? 

ap.? = ap.? + ecken? 

afd.? = afd.? + ecken?-l 

NEXT w 


EXIT SUB 
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' Umrisse des Rotationskörpers editieren: 
edit.koerper: 

IF flag^O-1 THEN 
ERASE xrot^, yrot^ 

END IF 

DIM xrot^(MAX.ECKP^-l), yrot^(MAX.ECKP!5-l) 
eckend = -1 
GOSUB zeichne 

WHILE (ch?<>27 OR ecken^<=0) 'Ende bei ESC 
SLEEP 'Auf Ereignis warten 

maus^ = MOUSE(O) 

IF maus?=l THEN 'Maustaste gedrückt 

eckend = ecken^+1 

IF eckend >= MAX.ECKP^ GOTO rotraus 

xrot^(eckend) = M0USE(3) 'Mauskoordinaten merken 

yrot^(ecken%) = M0USE(4) 'als Rotationseckpunkt 

IF ecken^=0 THEN 

PSET (xrot^(O), yrot^(O)) 'Grafikcursor setzen 
ELSE 'oder: Linie zeichnen: 

LINE -(xrot^(ecken?), yrot?(eckend)) 

END IF 
END IF 

ch^ = ASC(INKEY$+CHR$(0)) 'Taste holen 

IF ch^=127 AND eckend>=0 THEN 'Del=>letzten Punkt löschen 
eckend = ecken^-1 
GOSUB zeichne 
IF eckend > 0 THEN 

FOR i=0 TO ecken^-1 'neu zeichnen: 

LINE (xrot?(i), yrot^(i))-(xrot^(i+l),yrot%(i+l)) 

NEXT i 
ELSE 

IF eckend = 0 THEN PSET (xrot?(0), yrotf»(0)) 

END IF 
END IF 
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IF WIND0W(7)=0 THEN 'Fenster geschlossen! 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 
END 

END IF 
WEND 

rotraus: 

eckend = eckend + 1 
RETURN 

zeichne: 

CLS 

COLOR 10 

LOCATE 1,22 : PRINT "Umrißeingabe eines Rotationskörpers 

'Koordinatenkreuz zeichnen; 

PATTERN SeHFOFO 'gestrichelt 

COLOR 15 

LINE (0,wy^/2)-(wx^,wy^/2) 'Rotationsachse 

LINE (wxV2,0)-(wx^/2,wy^) 

PATTERN SeHFFFF 
COLOR 1 
RETURN 

END SUB 


'Transformation aller Raum-Punkte: 

SUB transform STATIC 
SHARED ap? 

SHARED sx,sy,sz,tx,ty,tz,rx,ry,rz 

'Konstanten für die Drehung berechnen: 
sl.x = SIN(rx) : co.x = COS(rx) 

si.y = SIN(ry) : co.y = COS(ry) 

si.z = SIN(rz) : co.z = COS(rz) 

A = co.y * co.z 
B = co.y ¥: si.z 
C = -si.y 

D = si.x*sl.yjfco.z - co.xxsi.z 
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E = si.xjfsi.y^sl.z + co.x^co.z 
F = si.x*co.y 

G = co.x}tsi.y*co.z + sl.x*si.z 
H = co.x5(-si.y*si.z - si.xifco.z 
J = co.x*co.y 


FOR i=0 TO ap%-l 
' Transformationen: 

xt = sx}txr(i) + tx 'Skalierung 

yt = sy*yr(i) + ty 'und Translation 

zt = sz}tzr(i) + tz 


xe(i) = xt*A 
ye(i) = xt*D 
ze(i) = xtx-G 
NEXT i 


+ yt*B + zt*C 
+ yt*E + ztitF 
+ yt^tH + zt*J 


'Rotationen 


END SUB 


'Projektion aller Raum-Koordinaten in die Ebene: 
SUB Projektion STATIC 
SHARED ap^ 

SHARED bx,by,bz 

FOR i=0 TO ap^-1 

' Zentralprojektion: 
zwis = ze(i) - bz 
xe(i) = bx - bz * (xe(i)-bx)/zwis 
ye(i) = by - bz * (ye(i)-by)/zwis 
NEXT i 
END SUB 


'Ausfiltern aller verdeckten Flächen 
'und Sortieren der mittleren z-Werte: 

SUB verdecke STATIC 
SHARED 3.fd%, afz% 

SHARED bx,by,bz 


afz^ = 0 'Anzahl zu zeichnender Flächen 


FOR i=0 TO afd^-1 
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'Phase 1: Flächenrückenuntersuchung: 

'Zwei (hoffentlich) linear unabhängige 
'Vektoren der Fläche ermitteln: 

'V = P2-P1 // w = P3-P1: 

'mit: P1,P2,P3 = Eckpunkte der Fläche 
?1% = fld^(i,0) 

P2^ = fld%(l,l) 

P3^ = fld%U,2) 

Pl.x = xe(Pl%) 

Pl.y = ye(Pl^) 

Pl.z = ze(Pl^) 
v.x = xe(P2^) - Pl.x 
v.y = ye(P2^) - Pl.y 

v. z = ze(P2$) - Pl.z 

w. x = xe(P3^) - Pl.x 
w.y = ye(P3^) - Pl.y 
w.z = ze(P3^) - Pl.z 

'Vektorprodukt p = v x w ermitteln: 
p.x = v.yxw.z - v.zxw.y 
p.y = v.zxw.x - v.xxw.z 
p.z = v.xxw.y - v.yxw.x 

'Sichtvektor s vom Beobachter zu PI berechnen: 
s.x = Pl.x - bx 
s.y = Pl.y - by 
s.z = Pl.z - bz 

'Skalarprodukt q = p » s berechnen: 
q = p.xxs.x + p.yxs.y + p.zxs.z 

'Vorzeichen von q testen: 

IF q>0 THEN 

'Fläche als sichtbar kennzeichnen: 
sum.z = 0 
FOR k=0 TO 3 

flz^(afz^,k) = fld^(i,k) 'Flächendef. übertragen 
sum.z = ze(fld^(i,k)) + sum.z 'z-Summe bilden 
NEXT k 


GOSUB färbe 


'Farbwert der Fläche errechnen 
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'Phase 2: z-Mittelwert einsortieren: 

'z-Mittelwert in z-Array speichern: 
mittel = sum.z / 4 
mlt.z(afz^) = mittel 

'Nach z-Mittelwert den Flächenindex in Sort-Array einorden: 
k = 0 

'Einsortierstelle suchen: 

WHILE (mittel <= mit.z(sort.f^(k)) AND k < afz^) 
k=k+l 
WEND 

IF k <= afz5? THEN 

'Ab Einsortierstelle verschieben: 

FOR m=afz^ TO k STEP -1 
sort.f?(m+l) = sort.f^(m) 

NEXT m 
END IF 

sort.f^(k) = afZ/S 'Index der Fläche merken 
afz% = afz!?+l 'Anzahl sichtbare Flächen erhöhen 

END IF 

NEXT 1 'Nächste Fläche 

EXIT SUB 

'Flächen-Farbintensitäten errechnen: 
färbe: 

SHARED lq.x&, lq.y&, lq.z& 

SHARED li.int, fl.int, hin.int 

' Vektor vom Flächenpunkt zur Lichtquelle: 

L.x = Pl.x - lq.x& 

L.y = Pl.y - lq.y& 

L.z = Pl.z - Iq.zSf 

' Intensität des einfallendes Lichtes: 
cos.a = (p.xxp.x + p.yxp.y + p.zxp.z) 
cos.a = cos.a x (L.xxL.x + L.yxL.y + L.zxL.z) 
cos.a = (p.xxL.x + p.yxL.y + p.zxL.z)/SQR(cos.a) 
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färb = hin.int*fl.int 
IF cos.a < 0 THEN 

färb = färb - li.int*fl.int * 
END IF 

färbe(afz^) = färb - INT{farb) 


Hintergrundintensität 
'Fläche dem Licht zugewandt? 
cos.a ' JA! Lichteinfall 
' ermitteln 
nur zwischen 0 und 1! 


RETURN 


END SUB 



Bild 7.3: Rotationskörper 2 


Gehen wir frisch ans Werk. Das ist wieder einmal ein Programm, mit dem Sie richtig kreativ 
arbeiten können. Hier brauchen Sie nicht nur zuschauen, hier erleben Sie mit! Starten Sie das 
Programm also einfach einmal. Es meldet sich mit einem fast leeren Bildschirm, in den nur 
ein zweidimensionales Koordinatenkreuz mit x-/y-Achsen und eine Überschrift; »Umrißein¬ 
gabe eines Rotationskörpers« eingelassen ist. Hier ist die Stelle, an der Sie die Umrißebene des 
Rotationskörpers mit Ihrer Maus definieren können. Die senkrechte Linie markiert gleichzeitig 
die Position der Drehachse, um die alle von Ihnen eingegebenen Punkte später Schritt für Schritt 
gedreht werden, um den Rotationskörper zu erzeugen (s.o.). 

Fahren Sie nun mit der Maus auf einen beliebigen Punkt des Bildschirms (möglichst nicht zu 
weit von der Drehachse entfernt) und betätigen den linken Mausknopf. Es erscheint ein Punkt. 
Bewegen Sie die Maus nun ein wenig weiter und betätigen den Mausknopf erneut. Sofort zieht 
das Programm eine Linie vom ersten zum zweiten Punkt. Fahren Sie so weiter fort, bis Sie etwa 
fünf bis sechs Punkte markiert und so verbunden haben. Jetzt haben Sie den Umriß Ihres Rota¬ 
tionskörpers stehen. Sollte Ihnen etwas nicht gefallen, dann drücken Sie einfach die Taste 
<Del> - der jeweils letzte Punkt (und mit ihm der verbindende Strich) verschwindet. Auf 
diese Weise gestalten Sie Ihren Rotationskörper nach Ihren Vorstellungen. Stimmt alles, dann 
ein Tip auf die Esc-Taste und... Die Kommandos noch einmal zusammengefaßt: 
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< Maustaste li > 
<Del> 

<Esc> 

< Window dose > 


Definieren eines Eckpunktes 

Löschen eines Eckpunktes 

Berechnen und Zeichnen des Rotationskörpers 

Programm beenden 


.. .und nach wenigen Augenblicken erscheint das Corpus delicti auf dem Bildschirm. Haben 
Sie viele Eckpunkte eingegeben, dann kann schon einmal ein wenig mehr Zeit verstreichen 
(Amiga-Basic!). Ersten und letzten Punkt sollten Sie stets ziemlich nahe an der Rotationsachse 
positionieren, wenn nicht gar auf ihr. 


Jetzt jedenfalls stehen Ihnen eine ganze Reihe von Kommandos zur Verfügung, um die Erschei¬ 
nung Ihres Rotationskörpers zu variieren: 


< Maustaste li > 

< Cursor li > 

< Cursor re > 

< Cursor auf > 

< Cursor ab > 
<Del> 

< -f > 

<-> 

< 8 > 

<2> 

< Help > 

< Backstep > 
<F1> 

<Esc> 

< Window close> 


Verschieben des Rotationskörpers 
Drehung um die z-Achse links 
Drehung um die z-Achse rechts 
Drehung um die x-Achse links 
Drehung um die x-Achse rechts 
Flächenbegrenzung ein/aus 
Objekt vergrößern 
Objekt verkleinern 
Beobachter entfernen 
Beobachter annähern 
Alle Rotationswinkel gleich Null 
Farben wechseln 
Änderung der Rotationszahl 
Neuen Rotationskörper entwerfen 
Programm beenden 


Sie haben also eine ganze Menge Auswahl. Mit Fl ändern Sie die Rotationszahl, ohne jedoch 
die Umrisse des Körpers zu verlieren. Sie geben nach Fl einfach die Zahl der gewünschten 
Rotationen ein (je höher, desto genauer) und Amiga-Basic berechnet den Rotationskörper völlig 
neu. Die Position der Lichtquelle und noch weitere Parameter verändern Sie bitte im Programm 
selbst. 


Je mehr Eckpunkte und je größer die Rotationszahl, desto länger dauert es, bis ein neuer Rota¬ 
tionskörper berechnet, transformiert und projiziert ist, desto länger dauert die Flächen- 
Sichtbarkeitsüberprüfung usw. Bei ganz extremen Werten kann die Berechnung auch einige 
Minuten dauern (überlegen Sie einmal, wieviele Punkte, wieviele Flächen behandelt werden 
müssen). Ein Programm in C oder gar Assembler könnte hier in Sekundenschnelle Abhilfe 
schaffen! Dann wären sogar Animationen möglich. 

Schreiten wir zur Programmbeschreibung. Sehr speicheraufwendig gestaltet sich die ganze 
Rechenarbeit. Zu Programmanfang sollte also geprüft werden, ob überhaupt genügend Spei¬ 
cher vorhanden ist und gegebenenfalls reserviert werden. Die Größe des zu reservierenden 
Speichers hängt fast nur von den Maximalwerten für Ecken- und Rotationszahlen ab. Die sind 
in den ersten Zeilen in einem DATA-Statement abgelegt (hier 15 und 45). Sollte Ihr Speicher 
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nicht reichen, dann verändern Sie diese Werte. Haben Sie mehr Speicher zur Verfügung, dann 
dürfen Sie sie ruhig erhöhen. Normalerweise warnt Sie das Programm, wenn Sie zuviel Spei¬ 
cher belegen möchten. Es kann allerdings auch passieren, daß es mit einem »OUT OF 
MEMORY« endet. Das liegt dann daran, daß zwar genügend Speicher vorhanden wäre, aber 
nicht genügend zusammenhängender Speicher zur Verfügung steht. 

Die folgenden Initialisierungen kennen Sie bereits aus anderen Kapiteln. Auch die grundsätzli¬ 
che Struktur und viele Routinen sollten Ihnen aus dem Kapitel zu den verdeckten Linien und 
Flächen bekannt sein. Es wurden nur geringfügige Änderungen (vor allem für die Rechen¬ 
genauigkeit) vorgenommen. Lassen Sie uns also auf das Wesentlichste zu sprechen kommen, 
die Routine get.rotkoerper(). Sie läßt Sie einen neuen Rotationskörper editieren und/oder 
berechnet alle Punkte und Flächen dieses Körpers - je nach dem Inhalt von flag%. 

Die Editierung des Körpers geschieht in dem Unterprogramm-internen Sub-Programm 
edit.koerper. Hier wartet das Programm einfach auf Ihre Mauseingaben, merkt sich die Koordi¬ 
naten in den Arrays xr(), yr() und zr(), zeichnet eine Linie vom letzten Punkt und gibt Ihnen 
die Möglichkeit, die Linien wieder zu löschen. Nichts von besonderer Schwierigkeit also. 

Dann aber geht es los. In einer großen FOR...NEXT-Schleife wird der Winkel w langsam, 
Schritt für Schritt (die Anzahl der Schritte können Sie ja festlegen) hochgezählt. In der Schleife 
dreht das Programm alle Ihre eingegebenen Punkte mit dem Winkel w um die y-Achse und kennt 
damit die Koordinaten der Punkte der nächsten Drehebene. Dann konstruiert es - jeweils von 
vier Punkten eingerahmt - die Flächen des Körpers. Das ist eigentlich alles. Die Arrays werden 
dann den dafür zuständigen Routinen zur Ausgabe etc. übergeben. 



Kapitels 


Anhang 
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8.1 Mathematische Grundlagen zur Computergrafik 

Auf den folgenden Seiten finden Sie noch einmal eine kurze Zusammenfassung der wichtigsten 
mathematischen Prinzipien, Gesetze und Verfahren, die in diesem Buch zum Verständnis der 
dreidimensionalen Computergrafik notwendig sind. Teilweise werden hier Dinge wiederholt, 
die auch in den entsprechenden Kapiteln schon einmal erläutert wurden. Leser, die bei mathe¬ 
matischen Problemen in diesem Buch Schwierigkeiten haben, können kurz hier in den Anhang 
blättern und sich die notwendigen Zusammenhänge noch einmal vor Augen fuhren. Für die 
Vektorrechnung empfehle ich Ihnen auch das Kapitel 4.3, für die Matrizenrechnung Kapitel 
3.2.1. 

8.1.1 Trigonometrische Funktionen 

Die sogenannten trigonometrischen Funktionen (Sinus, Cosinus, Tangens etc.) kennen Sie viel¬ 
leicht noch aus der Schule. Gerade deshalb aber wollen wir hier kurz noch einmal zusammen¬ 
fassen, was darunter zu verstehen ist und welche Gesetze es gibt. 



Bild 8.1: Die Definition der trigonometrischen Funktionen 

Definiert werden die trigonometrischen Funktionen im sogenannten Einheitskreis (s. Bild 8.1), 
ein Kreis mit dem Radius 1 und dem Mittelpunkt im Punkt (0,0). Fällt man ein Lot vom Radius 
c auf die x-Achse, dann entsteht ein rechtwinkliges Dreieck mit den Seiten c, a und b und dem 
rechten Winkel zwischen den Seiten a und b. Die Länge dieser beiden Seiten hängt nun aber 
von dem Winkel w ab, der vom Radius c und der x-Achse gebildet wird. Man definiert die 
Längen a und b durch zwei neue Funktionen des Winkels w: 

a = sin(w) (sprich: »Sinus von w«) 

b = cos(w) (sprich: »Cosinus von w«) 
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Sie sehen, je größer w ist, desto größer wird a (also sin(w)) und desto kleiner wird b (cos(w)). 
Ist w größer als 90 Grad, so nimmt b negative Werte an, a wird dagegen immer kleiner usw. 
Nach 360 Grad beginnt der Ablauf von neuem. Die Funktion ist also periodisch mit einer 
Periode von 360 Grad. Trägt man die Funktionen in ein Koordinatensystem ein (auf der x-Achse 
die Werte für w, auf der y-Achse die für sin(w) bzw. cos(w)), resultiert die bekannte wellen¬ 
förmige Sinusfunktion. Die Cosinusfunktion sieht genauso aus, ist nur um 90 Grad verschoben 
(s. Bild 8.2). Der größte Wert für die Sinusfunktionen beträgt 1, der niedrigste -1. Die Funktion 
pendelt stets zwischen diesen beiden Werten hin und her. 



Die dritte und vierte Winkelfunktion, die ebenfalls oft verwendet werden, sind wie folgt defi¬ 
niert: 

tan(w) = sin(w)/cos(w) 

cot(w) = cos(w)/sin(w) = l/tan(w) 

Die erste, tan(w), nennt sich Tangens, die zweite Cotangens. Im Einheitskreis ist der Tangens 
immer gleich 1. 

Winkel werden oft statt wie hier in Altgrad auch in Radiant angegeben, das ist die Länge des 
Kreisbogens innerhalb eines Winkels w im Kreis mit dem Radius 1. Ein voller Kreis (360 Grad) 
hat dann die Bogenlänge von 2*PI. PI ist die bekannte Kreiskonstante mit 


PI = 3.14159265... 
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Die Formeln für die Umrechnung eines Winkels von Grad (g) in Radiant (r) und umgekehrt 
lauten: 

r = 2*PI*g/360 = PI*g/180 

g = 360*r/(2*PI) = 180«r/PI 

Einige wichtige Winkel in Grad und Radiant: 


0 Grad 

= 

0 

Rad 

1 Grad 


PI/180 

Rad 

10 Grad 

= 

PI/9 

Rad 

30 Grad 

= 

PI/6 

Rad 

45 Grad 

= 

PI/4 

Rad 

60 Grad 


PI/3 

Rad 

90 Grad 

= 

PI/2 

Rad 

180 Grad 

= 

PI 

Rad 

360 Grad 

= 

2 * PI 

Rad 


Aber zurück zu den Winkelfunktionen. Lassen wir den Radius des Kreises größer oder kleiner 
1 werden, dann müssen die obigen Gleichungen erweitert werden. Mit normalen geometri¬ 
schen Methoden ergibt sich dann: 

sin(w) = a/c 
cos(w) = b/c 
tan(w) = a/b 
cot(w) = b/a 

mit c für den Kreisradius, w für den Winkel zwischen c und b und a bzw. b für die beiden Seiten 
am rechten Winkel des Dreiecks. Losgelöst von unserem Kreis besitzen wir damit Formeln für 
die Berechnung einer Seite eines rechtwinkligen Dreiecks aus einem Winkel und einer Seite. 
Gleichzeitig ist es möglich, jeden Winkel eines rechtwinkligen Dreiecks aus zwei bekannten 
Seiten zu bestimmen, c ist dabei stets die längste Seite im Dreieck, also die dem rechten Winkel 
gegenüberliegende Seite, auch Hypotenuse genannt, a und b sind dann die beiden Katheten. 

Kennen Sie in einem rechtwinkligen Dreieck also einen Winkel w, dann ist der Sinus dieses 
Winkels immer das Verhältnis der gegenüberliegenden Seite zur Hypotenuse, der Cosinus ent¬ 
sprechend das Verhältnis der am Winkel liegenden Seite zur Hypotenuse, und der Tangens 
schließlich das Verhältnis der gegenüberliegenden zur am Winkel liegenden Seite. 

Kennen Sie die Winkelfunktion eines Winkels, dann können Sie den Winkel selbst durch die 
sogenannten Umkehr-(Arcus-)Funktionen ermitteln. Es gilt: 

w = arcsin(sin(w)) 
w = arccos(cos(w)) 
w = arctan(tan(w)) 
w = arccot(cot(w)) 

Man spricht von Arcussinus, Arcuscosinus, Arcustangens und Arcuscotangens (Ihr Amiga- 
Basic kennt nur die Arcustangens-Funktion ATN(x)). 
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Hier einige wichtige Beziehungen zwischen den Winkelfunktionen: 


sin(x) 

= cos(PI/2-x) 

cos(x) 

= sin(PI/2-x) 

tan(x) 

= cot(PI/2-x) 

cot(x) 

= tan(PI/2-x) 

sin(PI-l-x) 

= -sin(x) 

cos(PI-t-x) 

= -cos(x) 

tan(PI-bx) 

= tan(x) 

cot(PI-t-x) 

= cot(x) 

sin(x+/_y) 

= sin(x)*cos(y)+Lcos(x)*sin(y) 



cos(x+/_y) 

= cos(x)*cos(y)-/+sin(x)*sin(y) 



sin(2»x) 

= 2*sin(x)cos(x) 



cos(2»x) 

= cos2(x)-sin2(x) 




Im rechtwinkligen Dreieck gilt auch der folgende sehr wichtige Satz (Satz des Pythagoras): 
c2 = a^ + 

mit c als Hypotenuse, a und b als die beiden Katheten. 


8.1.2 Vektorrechnung 

Unter einem Vektor versteht man eine »gerichtete Strecke« im Raum oder in der Ebene (Pfeil) 
(Schreibweise: v). Ein Vektor wird definiert durch Fuß- und Spitzenpunkt. Die Länge eines 
Vektors a nennt man auch Betrag des Vektors lal. Zwei Vektoren ä und b sind gleich (ä = b), 
wenn ihre Länge und ihre Richtung gleich sind (die Position im Raum oder in der Ebene ist 
gleichgültig!). Verschiebt man einen Vektor parallel, dann handelt es sich trotzdem um ein und 
denselben Vektor. 

Hat ein Vektor die Länge eins, dann nennt man ihn den Einheitsvektor. Ein Einheitsvektor 
berechnet sich aus v' = v/lvl. Der Nullvektor hat die Länge null, seine Richtung ist unbe¬ 
stimmt. 


Man kann einen Vektor v auch alternativ durch einfache Koordinaten angeben. Dabei wird 
angenommen, daß sich der Fußpunkt des Vektors im Koordinaten-Nullpunkt befindet (wir kön¬ 
nen ihn ja beliebig verschieben). Als Koordinaten des Vektors werden dann nur die Koordinaten 
der Spitze angeführt (wir kommen also auch hier mit zwei Parametern für die Ebene und dreien 
für den Raum aus): 



oder im Raum: 



Für die Länge (Betrag) eines Ebenenvektors gilt: 
IVP = Vx^ + Vy2 
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Bei räumlichen Vektoren sieht das Ganze so aus: 

IVP = Vx^ + Vy- + 

Man kann mit Vektoren auch rechnen. Dabei gelten besondere Rechengesetze: 

Multiplikation mit einer Zahl: 

So ist es möglich, einen Vektor mit einer einfachen Zahl a zu multiplizieren. Das darf nicht 
mit dem weiter unten vorgestellten Skalarprodukt verwechselt werden! Grafisch ist darunter 
die Verlängerung oder Verkürzung des betreffenden Vektors v zu verstehen. Das Ergebnis ist 
also ebenfalls ein Vektor. Er besitzt die Länge a * Ivl. Ist a negativ, so kehrt sich gleichzeitig 
noch die Richtung des Vektors um. Bei a = 0 ist das Ergebnis der Nullvektor: 



im Raum: 


( Vx\ / a*Vx 

Vy = a*Vy 
Vz/ \a*v. 

In diesem Zusammenhang ist ein weiterer Begriff von Wichtigkeit: die lineare Unabhängigkeit 
von Vektoren. Zwei Vektoren sind genau dann linear unabhängig, wenn man den einen nicht 
durch eine Multiplikation mit einer einfachen Zahl in den anderen umwandeln kann. Mit ande¬ 
ren Worten: wenn sie nicht parallel oder antiparallel liegen. Linear abhängig oder besser: ko¬ 
linear sind demnach zwei Vektoren, die die gleiche Richtung (oder entgegengesetzte Richtun¬ 
gen), aber nicht unbedingt die gleiche Länge besitzen. 

VektoradditionZ-subtraktion: 

Wir können zwei Vektoren v und w auch addieren und subtrahieren. Das Ergebnis ist eben¬ 
falls ein Vektor. Wollen wir eine solche Addition grafisch darstellen, dann brauchen wir nur 
den Fuß des Vektors w an die Spitze des Vektors v zu verschieben. Der resultierende Vektor 
geht dann einfach vom Fuß des Vektors v bis zur Spitze von w: 


v-l-w = j 

(::) 

1 = (::) 

1 -1 

[ Vx+Wx^ 

l Vy-fWyj 

1 

Entsprechendes gilt im Raum: 

v + w = j 

(Vx) 

Vy 

1 ''z 1 

i M 

■F Wy 


'Vx+Wx' 
Vy +Wy 
^Vx-f-Wx, 


Die Subtraktion zweier Vektoren geht völlig analog vonstatten: 

v-fw = 1 

C:) 

1 - (:;) 

1 = 1 

f Vx-Wx! 
l Vy-Wy J 

1 
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Im Raum: 


/ Vj \ / Wx\ / Vx-Wx \ 

V + W = 1 Vy j - j Wy j = j Vy-Wy | 

\vz/ \wz/ \ Vz-Wz / 


Rechengesetze: 


v+w = w+v 
a»(b*v) = (a*b)»v 

a*(v+w) = a*v + a*w 
la«vl = lal»lvl 


v+(w+0) = (v+w)+ü 
(a+b)*v = a^v + b*v 


Skalarprodukt: 

Wir können zwei Vektoren v und w auch miteinander multiplizieren. Dabei gibt es allerdings 
zwei Möglichkeiten. Beim sogenannten Skalarprodukt v»w (sprich: »v mal w«) ist das Ergeb¬ 
nis eine einfache Zahl (Skalar), beim Vektorprodukt vxw (sprich: »v kreuz w«) dagegen wie¬ 
der ein Vektor. 

Das Skalarprodukt ist wie folgt definiert: 
v»w = Ivl •lwl*cos(a) 

Dabei ist a der Winkel zwischen den beiden zu multiplizierenden Vektoren. Die Beträge von 

V und w sind die Längen der beiden Vektoren. Für die Koordinatenschreibweise gilt: 

V*W = Vx»Wx -I- Vy»Wy 

bzw. für räumliche Vektoren: 

V*W = Vx*Wx + Vy*Wy + Vz*Wz 

Stehen die beiden Vektoren aufeinander senkrecht, dann gilt: 

v*w = 0 für: V steht senkrecht auf w 

Rechengesetze: 

V«w = w*v 
(a»v)*w = a»(v*w) 
v*(w+ii) = v»w + v*ü 

V ♦ V = 

= Iv|2 

Es gilt aber nicht unbedingt: 
v«(w«u) = (v*w)*u 

Mit anderen Worten: Sie müssen darauf achten, die Skalarmultiplikationen stets in der richtigen 
Reihenfolge auszuführen! 
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Vektorprodukt: 

Das Vektorprodukt haben wir bereits erwähnt. Es die Art der Multiplikation zweier Vektoren, 
die wieder einen Vektor zum Ergebnis hat. Dieser neue Vektor p = vxw hat eine Länge von: 

ipl = Ivxwl = lvl*lwl*sin(a) 

Dies ist übrigens auch der Flächeninhalt des von v und w aufgespannten Parallelogramms, 
steht auf den beiden Vektoren v und w senkrecht, ragt also in den Raum hinein (v, w und 
ergeben ein rechtshändiges System). Einen senkrechten Vektor nennt man auch Normalvektor. 


Mathematisch ist das Vektorprodukt wie folgt definiert: 


p = vxw = 1 

( Vy*Wz - Vz*Wy ' 
Vz*Wx - Vx*Wz 
i Vx«Wy - Vy*W,t, 


Rechengesetze: 


vxw 

(a*v)xw 

vx(w+u) 

vxw 

vxv 


-(wxv) !!! 

a*(vxw) 

vxw + vxfl 

Nullvektor (falls v zu w parallel bzw. antiparallel ist) 
Nullvektor 


Punktdarstellung durch Vektoren: 


Ein Punkt kann ebenfalls als Vektor interpretiert werden. In diesem Fall ist der Vektor vom Null¬ 
punkt zum Punkt: 



X, y und z sind dabei die Koordinaten des Punktes. Mit P - steht ja eigentlich für den Punkt 
P - rechnen wir genauso, wie mit normalen Vektoren. 


8.1.3 Geraden und Ebenen 

Geraden: 

Im folgenden werden einige Gleichungen aufgezeigt, mit denen Sie die Punkte einer Geraden 
berechnen können: 

Ganz grundlegend dabei ist natürlich die Geradengleichung in der Ebene, die wohl jeder schon 
einmal irgendwo gesehen hat: 

a*x + b*y 4-0 = 0 (allgemeine Form) 

oder: 

y = m * X + n (normierte Form) 


TOh TO. 
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wobei m die Steigung und n den Schnittpunkt mit der y-Achse angeben, es gilt: 


X2-X1 

Für den Raum ist eine Gerade als lineares Gleichungssystem darstellbar (Schnittgerade zweier 
Ebenen): 

ai*x + bi*y + Ci*z + di = 0 und 

a2*x + b2*y + C2»z + dz = 0 

Auch diese Form ist möglich; 


y = m*(x-X|) + yi 

(Punkt-Steigungs-Form) 

wobei: 


xi,yi ein Punkt auf der Geraden 

m Steigung (s.o.) 


Daraus leitet sich die nächste Form ab: 

y - yi _ x - x, 

(Zweipunktegleichung) 

yz - y, X 2 - X| 


Eine letzte, nicht so alltägliche Form lautet: 

^ + 1 -1 

(Achsenabschnittsform) 

a b 



Diese Gerade schneidet die x-Achse im Punkt P(a,0) und die y-Achse im Punkt Q(0,b). 
Vektorielle Geradengleichung (für die Ebene und für den Raum): 
g: p = Po + t‘ä 

und in Parameterschreibweise; 

g: Px = Pox + t*ax 
Py = POy + Gay 
Pz Poz ~f t * az 

oder als GleichungsSystem: 
x-pox ^ y-pov ^ z-poz 
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dabei bedeuten: 

p Vektor vom Koordinatenursprung zu dem zu berechnenden Punkt P der Geraden (oder 
einfach: Punkt P) 

Po Vektor vom Koordinatenursprung zu einem beliebigen Punkt Po der Geraden (oder ein¬ 
fach: Punkt Po) 

ä »Richtungsvektor«, beliebiger Vektor parallel zur Geraden 

t Faktor zur »Verlängerung« (oder Verkürzung) des Vektors a, um Punkt P zu erreichen 

Um eine ganz bestimmte Gerade zu bestimmen, brauchen wir lediglich die Parameter po und 
ä anzugeben. Aus beliebigen Werten für t errechnen sich dann alle Punkte P (bzw. Vektoren 
p) der Gerade. 

Ebenen: 

Im folgenden werden einige Gleichungen aufgezeigt, mit denen Sie die Punkte einer Ebene im 
Raum berechnen können: 

Hier die allgemeine Ebenengleichung: 

a*x + b*y + c*z -I- d = 0 

Die Achsenabschnittsform lautet: 

^ = 1 
a b c 

Diese Ebene schneidet die x-Achse im Punkt P(a,0,0), die y-Achse im Punkt Q(0,b,0) und die 
z-Achse im Punkt R(0,0,c). 

Vektorielle Ebenengleichung: 

e: p = Po + s*ä + t*b 

oder in Parameterform: 

e; Px = Pox + s*ax + t*bx 

Py = Poy + S*ay + t*by 

Pz = Poz + s*a, + t*bx 

dabei bedeuten: 

p Vektor vom Koordinatenursprung zu dem zu berechnenden Punkt P der Ebene (oder ein¬ 

fach: Punkt P) 

po Vektor vom Koordinatenursprung zu einem beliebigen Punkt Po der Ebene (oder ein¬ 
fach: Punkt Po) 

ä,b Beliebige, linear unabhängige Vektoren auf der Ebene 

s,t Faktoren zur »Verlängerung« (oder Verkürzung) der Vektoren a und b, um Punkt P zu 
erreichen 
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Um eine ganz bestimmte Ebene zu zeichnen, brauchen wir lediglich die Parameter po, a und 
b anzugeben. Aus beliebigen Werten für s und t errechnen sich dann alle Punkte P (bzw. Vek¬ 
toren p) der Ebene. 

Eine andere Schreibweise der vektoriellen Ebenengleichung: 

n «p + d = 0 

oder: 

(p-po) * n = 0 

n ein auf der Ebene senkrechter Vektor (meist mit der Länge 1) 

p Vektor vom Koordinatenursprung zu dem zu berechnenden Punkt P der Ebene (oder ein¬ 
fach: Punkt P) 

Po Vektor vom Koordinatenursprung zu einem beliebigen Punkt Pq der Ebene (oder ein¬ 
fach: Punkt Po) 

d Höhenkoeffizient (bei d = 0 geht die Ebene durch den Nullpunkt) 

Zur Umformung der beiden vektoriellen Ebenengleichungen in die jeweils andere schauen Sie 
bitte in Kapitel 4.3. 


8.14 Matrizen 


Unter einer Matrix stellen wir uns einfach eine rechteckige Anordnung von verschiedenen 
Zahlen vor: 


A 


/ au 

ai2 

3i3 

314 

315 

ain \ 

a2i 

a22 

323 

324 

325 

^2n 

aai 

332 

333 

334 

335 

^3n 

a4i 

342 





, an,i 

3m2 

3m3 

3m4 

3m5 

• • - ^mn / 


Jede Zahl ai^ (z.B. an oder ^ 24 ) stellt ein Element der Matrix dar (die Indizes an den Elementen 
oben sollen nur zur Unterscheidung dienen, die Namen für Matrizen sind vereinbarungsgemäß 
immer Großbuchstaben, hier A). Die Matrix setzt sich zusammen aus Zeilen (waagerechte 
Reihe von Elementen) und Spalten (senkrechte Reihe von Elementen). Sie ist, so sagt man, vom 
Typ (m,n), da sie m Zeilen und n Spalten besitzt. Man spricht auch von einer (m,n)-Matrix. 
Die Elemente au, a^, ai 3 , ... (oder kurz: ajk) stellen die erste Zeile dar, alle Elemente a 2 k die 
zweite Zeile etc. Analog verhält es sich mit den Spalten. 


Ein Element aik steht also in der Zeile i und in der Reihe k. Wir haben es hier also sozusagen 
mit einem zweidimensionalen Array zu tun. 
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Die Anzahl von Elementen in einer Zeile kann (muß aber nicht) gleich der Anzahl der Elemente 
in einer Spalte sein. In diesem Fall sprechen wir von einer n-reihigen quadratischen Matrix, 


Z.B.: 


j 1 5-6\ 

A = -7 13 8 

\-l 2 22/ 

Diese Matrix ist dreireihig und quadratisch. 

Ein weiterer Sonderfall von Matrizen sind solche, die nur eine Zeile oder nur eine Spalte besit¬ 
zen. Sie sind daher vom Typ (l,n) bzw. (m,l) (s.o.), z.B.: 


A = (15 3-4) 

Hier haben wir es mit einer Matrix zu tun, die nur eine einzige Zeile besitzt (hier mit 4 »Spal¬ 
ten«). Sie wird auch »Zeilenvektor« genannt. Der andere Fall ist ein sogenannter »Spalten¬ 
vektor«, Z.B.: 



Addition/Subtraktion zweier Matrizen: 

Eine Addition bzw. Subtraktion kann nur mit typengleichen Matrizen (gleiche Anzahl Spalten 
und Zeilen) stattfmden. 

Die Addition zweier Matrizen C = A -f- B findet elementweise statt. Jedes Element aik der einen 
Matrix wird mit dem korrespondierenden Element bik der anderen Matrix addiert zum entspre- 
ehenden Element cik der Ergebnismatrix. Es gilt: 

Cik = aiK -t- bjk für alle i,k 

Analoges gilt für die Subtraktion: 

c,k = aik - bik für alle i,k 

Multiplikation einer Matrix mit einer Zahl: 

Eine Multiplikation B = n * A einer beliebigen Matrix mit einer reellen Zahl findet ebenfalls 
elementweise statt. Jedes Element aik der Matrix wird mit der zahl n multipliziert. Es gilt: 

b,k = n » ajk für alle i,k 

Addition, Subtraktion und Multiplikation mit einer Zahl gehorchen denselben Gesetzen wie die 
normalen Zahlenoperationen. 
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Multiplikation verketteter Matrizen: 

Die Multiplikation zweier Matrizen ist nur für verkettete Matrizen definiert. Unter verketteten 
Matrizen verstehen wir zwei Matrizen A und B, von denen die erste genausoviele Spalten besitzt 
wie die anderen Zeilen. Ein Beispiel einer erlaubten Multiplikation wäre dann: 

( 1 2 3 \ / 1 2 

4 5 6 . 3 4 

789/ \5 6 

A besitzt drei Spalten, B drei Zeilen, und damit wäre die Bedingung erfüllt. Wir sehen aber 
auch, daß die Multiplikation B * A nicht erlaubt ist. Auch wenn B * A erlaubt wäre, hieße das 
nicht, daß das Ergebnis das gleiche wäre wie A • B. Die Reihenfolge der Faktoren ist also stets 
wichtig! Beachten Sie, daß eine Matrixmultiplikation zwischen zwei quadratischen Matrizen 
(s.o.) immer erlaubt ist. 

Das Ergebnis einer Matrixmultiplikation ist wieder eine Matrix. Sie besitzt die gleiche Anzahl 
von Zeilen wie die erste (A) und die gleiche Anzahl von Spalten wie die zweite Matrix (B). Das 
Ergebnis der obigen Multiplikation ((3,3)-Matrix mal (3,2)-Matrix) wäre also eine Matrix vom 
Typ (3,2) (3 Zeilen, 2 Spalten). 


Die Berechnung dieser Ergebnismatrix C ist ein wenig kompliziert. Für die kundigen Leser 
schreiben wir die Berechnung eines einzigen Elementes in mathematischer Kurzschreibweise: 


n 


c>k = 2-f = a,|»bik 4- a,2*b2k + .. 

j = l 

• ^in * ^nk 


was soviel heißt wie: Das Element cik berechnet sich aus der Summe aller aij*bjit für j = 1 bis 
j = n. 

wobei: 

Cik ein Element der Ergebnismatrix C 
aij ein Element der Matrix A 
bjk ein Element der Matrix B 

n Anzahl der Spalten von A, also auch: Anzahl der Zeilen von B 

Wir berechnen, so sagt die Formel, ein Element cik der Ergebnismatrix, indem wir alle Ele¬ 
mente der i-ten Zeile(!) von A mit den jeweils korrespondierenden Elementen der k-ten 
Spalte(!) von B multiplizieren und von den Ergebnissen die Summe bilden (also addieren): 

C = A » B 


( an ai2 ai3 \ / bn \ 

a.21 a22 323 I * 1 bzi 622 I 

331 332 333 / \ bsi b32 / 


/ 1 2 3 

4 5 6 

\ 7 8 9 


1 

3 

5 
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( 1*1 + 2*3 + 3*5 1*2 + 2*4 + 3*6 \ 

4*1 + 5*3 + 6*5 4*2 + 5*4 + 6*6 | 

7*1 + 8*3 + 9*5 7*2 + 8*4 + 9*6 / 

/ 22 28\ / Cu ci2 \ 

= 49 64 = j C21 C22 

\ 76 100/ \ C3, C 32 / 

Rechenregeln: 

A*(B*C) = (A»B)*C 

Falsch wäre allerdings: A*(B*C)=(A«C)*B 

Wie wir oben bereits festgehalten haben, gilt nicht - und das ist sehr wichtig: A*B=B*A 

Es existieren eine Reihe von besonderen Matrizen, mit denen man eine andere Matrix multipli¬ 
zieren kann, ohne daß sich etwas ändert. Es sind dies quadratische Matrizen, in denen alle Ele¬ 
mente gleich Null sind. Lediglich die Elemente der sogenannten Hauptdiagonale müssen den 
Wert Eins besitzen, man nennt sie auch quadratische Einheitsmatrizen E: 


(1) oder 



Es gilt: 


A*E = A 


8.1.5 Transformationsmatrizen 

Im folgenden seien noch einmal alle im Buch besprochenen Transformationsmatrizen über¬ 
sichtlich zusammengefaßt. Alle Matrizen werden hier in homogenen Koordinaten angegeben. 


8.1.5.1 2-D-Matrizen 

Skalierung (Vergrößerung/Verkleinerung): 

Skalierungsmatrix: 

/ S, 0 0 \ 

S(S„ S,) = 0 Sy 0 

\ 0 0 1 / 


Dabei bedeuten: 

Sx Skalierungsfaktor in x-Richtung 
Sy Skalierungsfaktor in y-Richtung 
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Je nach Wert für Sx oder Sy verändert sich das Bild in folgender Weise: 


Sx/y 

> 1 

Vergrößerung 

Sx/y 

= 1 

Keine Veränderung 

0 < Sx/y 

< 1 

Verkleinerung 

Sx/y 

< 0 

gleichzeitig Spiegelung um x/y-Achse 


Skalierung eines Punktes: 

F = P(x,y) * S(Sx,Sy) 
= (x y n) * S(Sx,Sy) 

In Parameterschreibweise: 

x' = Sx*X 
y' = Sy*y 
(n' = n) 


Translation (Verschiebung): 

Translationsmatrix: 

/I 0 0\ 

T(Tx, Ty) = 0 1 0 

\ Tx Ty 1 / 

Dabei bedeuten: 

Tx Verschiebung in x-Richtung 
Ty Verschiebung in y-Richtung 

Translation eines Punktes: 

P' = P(x,y) * T(Tx,Ty) 

= (xyn) * T(Tx,Ty) 

In Parameterschreibweise: 

x' = Tx * X 
y' = Ty*y 
(n- = n) 


Spiegelungen: 

Matrizen: 

Spiegelung um die x-Achse; 

/ 1 0 0 \ 

Mx = 0-1 0 

\ 0 0 1 / 
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Spiegelung um die y-Achse; 

( -100 
0 1 0 
0 0 1 

Parameterschreibweisen; 

Spiegelung um die x-Achse; 

x' = X 

yl = _y 

Spiegelung um die y-Achse: 
x' = -X 

y> = y 

Rotation (Drehung) um den Nullpunkt: 


Rotationsmatrix: 



/ cos(w) 

sin(w) 


1 

II 

cos(w) 

0 

\ 0 

0 

1 / 


wobei: 

w - Rotationswinkel 


Rotation eines Punktes: 

P' = P(x,y) » R(w) 

= (x y n) * R(w) 

Parameterschreibweise: 

x' = x»cos(w) - y»sin(w) 
yl = x*sin(w) + y»cos(w) 
(n' = n) 


Rotation um einen beliebigen Punkt: 

Rotationsmatrix: 


R'(w,X;^ 2 ) = TiC-Xz-y^) * R(w) * T 2 (x 2 ,yJ = 


(. 

cos(w) 

-sin(w) 

Xz * cos(w) +yz * sin(w)+Xz 

sin(w) 

cos(w) 

-Xz * sin(w)-yz»cos(w) +y: 

wobei: 


w 

Rotationswinkel 



x-Koordinate Rotationszentrum 


Yz 

y-Koordinate Rotationszentrum 







Anhang 351 


Rotation eines Punktes: 

P' = P(x,y) * R'(w,Xz,yz) 

= (x y n) * R'(w,x^,yz) 

Parameterschreibweise: 

x' = x*eos(w) - y*sin(w) - X2*cos(w) + 
yi = x*sin(w) + y*cos(w) - Xz»sin(w) - 
(n' = n) 


8.1.5.2 3-D-Matrizen 


Skalierung (Vergrößerung/Verkleinerung): 


Skalierungsmatrix: 


S(Sx, Sy, Sz) = 

Dabei bedeuten: 


/ Sx 0 0 0 \ 

0 Sy 0 0 

0 0 Sz 0 

,0 0 0 1 , 


Sx Skalierung in x-Richtung 

Sy Skalierung in y-Richtung 

Sz Skalierung in z-Richtung 


Skalierung eines Punktes: 

P' = P(x,y,z) * S(Sx,Sy,Sz) 
= (x y z n) * S(Sx,Sy,Sz) 

In Parameterschreibweise: 


x' = Sx*X 

y' = Sy*y 

z' = Sz*Z 
(n' = n) 


Translation (Verschiebung): 
Translationsmatrix: 


T(Tx,Ty,Tz) = 


/ 1 0 0 0 \ 
0 10 0 
0 0 10 
\ Tx Ty Tz 1 I 


Dabei bedeuten: 


Tx Verschiebung in x-Richtung 
Ty Verschiebung in y-Richtung 


yz*sin(w) -I- Xz 
yz*cos(w) + yz 
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Translation eines Punktes: 

P' = P(x,y,z) * T(T„Ty,T,) 
= (xyzn) * T(Tx,Ty,Tz) 

In Parameterschreibweise: 

X' = y+Tx 

y' = y+Ty 

z' = z+Tx 
(n' = n) 


Rotationen um Koordinatenachsen: 

Rotation um die x-Achse: 


Rotationsmatrix: 



' 1 0 

0 

0 

R,(a) = “ “t! 

* 0 -sm(a) 

sin(a) 

0 

cos(a) 

0 

, 0 0 

0 

1 


Dabei bedeutet: 


a Rotationswinkel um die x-Achse 

Rotation eines Punktes: 

P' = P(x,y,z) * Rx(a) 

= (xyzn) * Rx(a) 

In Parameterschreibweise: 

x' = X 

y| = y»cos(a) - z*sin(a) 

z' = y»sin(a) + z*cos(a) 

(n' = n) 

Rotation um die y-Achse: 

Rotationsmatrix: 

cos(a) 0 -sin(a) 0 

0 10 0 

sin(a) 0 cos(a) 0 

0 0 0 1 

Dabei bedeutet: 

a Rotationswinkel um die y-Achse 
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Rotation eines Punktes: 

P' = P(x,y,z) * Ry(a) 

= (xyzn) * Ry(a) 

In Parameterschreibweise: 
x' = x*cos(a) + z»sin(a) 

y' = y 

z' = -x*sin(a) + z*cos(a) 

(n' = n) 


Rotation um die z-Achse: 

Rotationsmatrix: 

' cos(a) sin(a) 0 0 \ 

D _ -sin(a) cos(a) 0 0 

Rz(a) Q Q J Q 

; 0 0 0 1 / 

Dabei bedeutet: 

a Rotationswinkel um die z-Achse 
Rotation eines Punktes: 

P' = P(x,y,z) * R^Ca) 

= (x y z n) • RzCa) 

In Parameterschreibweise: 

x' = x*cos(a) - y*sin(a) 

y' = x»sin(a) + y*cos(a) 

z' = z 

(n' = n) 


Rotation um alle drei Achsen in der Reihenfolge x-, y-, z-Achse: 


Rotationsmatrix: 


Rx(a)y(b)^(c) = Rx(a) * Rj(b) • R,.(c) = 


^ cos(b)cos(c) 

sin(a)sin(b)cos(c) 
-cos(a)sin(c) 
cos(a)sin(b)cos(c) 
+ sin(a)sin(c) 

0 


cos(b)sin(c) 

sin(a)sin(b)sin(c) 
+ cos(a)cos(c) 
cos(a)sin(b)sin(c) 
-sin(a)cos(c) 

0 


-sin(b) 0 ' 

sin(a)cos(b) 0 
cos(a)cos(b) 0 
0 1 
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Dabei bedeutet: 

a Rotationswinkel um die x-Achse 

b Rotationswinkel um die y-Achse 

c Rotationswinkel um die z-Achse 

Rotation eines Punktes: 

P' = P(x,y,z) * Rx(a)y(b)^(c) 

= (xyzn) * Rx(a)y(b)2(c) 

In Parameterschreibweise: 

x' = x*A + y*B + z*C 
y' = xfD + y*E + z*F 
z' =x*G +y*H +z*I 
(n- = n) 

wobei: 

A = cos(b) * cos(c) 

B = cos(b) ♦ sin(c) 

C = -sin(b) 

D = sin(a) * sin(b) * cos(c)-cos(a) * sin(c) 

E = sin(a) * sin(b) * sin(c)+cos(a) * cos(c) 

F = sin(a) * cos(b) 

G = cos(a) * sin(b) * cos(c)+sin(a) * sin(c) 

H = cos(a) * sin(b) * sin(c)-sin(a) * cos(c) 

I = cos(a) * cos(b) 


Rotationen um eine beliebige Achse: 


Rotationsmatrix: 

^achsc(ä) “ 

T(-xo-yo,-zo) * Rx(wi) » Ry(w 2 ) • Rz(a) * 
Ry(-W 2 ) ♦ Rx(-wi) * T(xo,yo,zo) 


mit: 


T(-xo-yo-zo) 


T(xo,yo,zo) 


/ 1 0 0 0 \ 

0 1 0 0 1 

0 0 1 0 I 

I -Xo -yo -Zo 1 / 

' 1 0 0 0 \ 

0 10 0 
0 0 10 
( Xo yo Zo 1 I 
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I 1 0 0 0 \ 

0 z/c y/c 0 I 

0 -y/c z/c 0 I 
,0 0 0 1 / 

/I 0 0 0 ' 

0 z/c -y/c 0 
0 y/c z/c 0 
,0 0 0 1 , 

c/d 0 -x/d 0 \ 

0 10 0 
x/d 0 c/d 0 
,0 0 0 1 , 

c/d 0 x/d 0 ' 

0 10 0 
-x/d 0 c/d 0 

,0 0 0 1 , 

wobei: 

a Rotationswinkel um die Achse 

xo,yo>zo Koordinaten eines Punktes auf der Achse 

x,y,z Koordinaten eines zweiten Punktes der Achse 

und: 

c2 = y2 + z2 
d2 = x2 + c2 

Rotation eines Punktes: 

P' = P(X,y,Z) * Rachse(a) 

= (xyzn) * Rachse(a) 


R.(w,) 


Rx(-wi) 


Ry(W2) 


Ry(-W2) 


8.2 Im Buch verwendete Library-Funktionen 

In den verschiedenen Programmen dieses Buches wurde häufig Gebrauch von den vielen 
Library-Funktionen gemacht, die uns das Betriebssystem des Amiga zur Verfügung stellt. In 
den jeweiligen Kapiteln wurden sie nur kurz und meist nicht umfassend erklärt. Aus diesem 
Grunde finden Sie sie hier im Anhang noch einmal kurz und prägnant zusammengefaßt. 

Selbstverständlich kann das hier nur ein winziger Teil der tatsächlich vorhandenen Library- 
Funktionen sein. Für weitergehende Informationen empfehle ich die umfassende Literatur zum 
Amiga-Betriebssystem. 
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Exec/DOS-Funktionen: 

CloseLibrary(Library) 

Die zuvor mit OpenLibrary() geöffnete Bibliothek wird wieder geschlossen. 
Eingaben: 

Library Adresse der Library-Knotenstruktur 

Ausgaben: 


C-Datentypen: 

void CloseLlbrary( ); 

Z.B.: struct GfxBase »Library; 
oder; struct IntultionBase »Library; 

Beschreibung: 

Benötigen Sie die Funktionen einer Library für Ihr Programm nicht mehr, dann schließen Sie 
sie mit diesem Befehl. Danach dürfen Sie keine Bibliotheksfunktionen aus dieser Bibliothek 
mehr ansteuern. 


Exit(Fehlercode) 

Beenden eines Programmes (DOS-Funktion). 
Eingaben: 

Fehlercode Fehlercode für aufrufendes Programm 
Ausgaben: 


C-Datentypen: 
vold Exlt( ); 

Beschreibung: 

Exit() beendet Ihr Programm. Die Funktion kehrt also nicht wieder in Ihr Programm zurück. 
Wurde das Programm unter CLI gestartet, dann wird »Fehlercode« als ein Return-Code inter¬ 
pretiert. 


Message = GetMsg(Port) 

Holt die nächste Message (»Botschaft«) vom Message-Port. 
Eingaben: 

Port Adresse des Empfänger-Message-Ports 

Ausgaben: 

Message Adresse der empfangenen Message oder Null 
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C-Datentypen: 

struct Message i^GetMsg( ); 

Z.B.: struct IntuiMessage itMessage; 

Beschreibung: 

Mit dieser Funktion (sozusagen eine INPUT-Funktion) empfangen Sie Daten von irgendeinem 
Gerät (z.B. Tastatur oder Maus oder Disk oder...). Die Funktion wartet jedoch nicht auf eine 
Message, falls keine vorliegt. Warten können Sie beispielsweise mit Wait(). Lag eine Informa¬ 
tion (z.B. über einen Tastendruck) vor, dann gibt der Befehl die Adresse der entsprechenden 
Message-Struktur zurück, andernfalls Null. 

Die Message-Struktur in einem Intuition-Fenster sieht z.B. so aus: 


struct IntuiMessage 


struct Message ExecMessage; 

ULONG Class; /* IDCMP-Flag des Ereignisses */ 
USHORT Code; /* Menünummer, Taste etc. */ 
USHORT Qualifier; /* Zusatzlnf. SHIFT, Alt etc. */ 
APTR lAdress; /* Adresse v. Gadget, Screen..it/ 
SHORT MouseX, MouseY; /¥: Mauskoordinaten ¥:/ 
ULONG Seconds, Micros; /* Systemzelt d. Ereignlssesit/ 
struct Window *IDCMPWlndow; /* Fensteradresse it/ 
struct IntuiMessage JtSpecialLlnk; 


Nicht bei jeder Art von Meldung werden auch alle Strukturelemente verwendet. Aus dieser 
Struktur können Sie sich also die notwendigen Informationen über die Art und Inhalt der Bot¬ 
schaft holen. Wenn Sie die Message nicht mehr benötigen, dann müssen Sie sie mit 
ReplyMsg() wieder quittieren. 


Library = OpenLibrary(LibName, Version) 

Schaffe den Zugriff auf eine Library. 

Eingaben: 

LibName Library-Name 

Version Versionsnummer der Library 

Ausgaben: 

Library Adresse der Library-Knotenstruktur oder Null 

C-Datentypen: 

struct Library *OpenLlbrary( ); 
char »LibName; 
long Version; 
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Beschreibung: 

Die Funktion OpenLibrary() eröffnet Ihnen den Zugriff auf eine Library. Eventuell muß eine 
nicht ROM-residente Library von Disk zugeladen werden. Vorher dürfen Sie keine Funktionen 
ansteuern, die zu dieser Library gehören. Sollte ein Zugriff nicht möglich sein, liefert die Funk¬ 
tion eine Null. Vor dem Programmende sollten Sie die Library per CloseLibrary() wieder 
schließen. 

ReplyMsg(Message) 

Gibt eine Message zurück. 

Eingaben: 

Message Adresse der Message 
Ausgaben: 


C-Datentypen: 
vold ReplyMsg( ); 
struct Message Message; 

Beschreibung: 

Mit dieser Funktion geben Sie die empfangene Message (evtl, mit Rückmeldungen) zurück. 

Signal = Wait(Signalmaske) 

Wartet auf ein oder mehrere Signale. 

Eingaben: 

Signalmaske Bitmaske der Signale, auf die gewartet (Bit = 1) bzw. nicht gewartet 
(Bit = 0) werden soll. 

Ausgaben: 

Signal Nummer des eingetretenen Signals (Bitnummer) 

C-Datentypen: 
long Walt( ); 
long Signalmaske; 

Beschreibung: 

Wait() wartet auf ein bestimmtes oder mehrere Signale. Diese Signale reservieren Sie z.B. mit 
den IDCMP-Flags. Die Anwendung können Sie am besten den Demo-Programmen entnehmen. 

Intuition-Funktionen: 

CloseScreen(Screen) 

Schließen eines zuvor mit OpenScreen() geöffneten Intuition-Screens. 

Eingaben: 

Screen Adresse der Screen-Struktur 
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Ausgaben: 


C-Datentypen: 

vold CloseScreen( ); 

struct Screen *Screen 

Beschreibung: 

Mit dieser Funktion schließen Sie einen Screen unter Intuition. In dem Screen dürfen keine 
Fenster mehr offen sein. Ist der letzte Screen geschlossen, dann versucht diese Funktion, den 
Workbench-Screen zu öffnen. 

CloseWindow(Window) 

Schließen eines zuvor mit OpenWindow() geöffneten Intuition-Windows. 

Eingaben: 

Window Adresse der Window-Struktur 

Ausgaben: 


C-Datentypen: 

vold CloseWlndow( ); 

struct Window *Wlndow; 

Beschreibung: 

Mit dieser Funktion schließen Sie ein Fenster (Window) unter Intuition. In dem Fenster darf 
keine Menüzeile mehr definiert sein! Ist das letzte Fenster in einem System-Screen (nicht zu 
verwechseln mit einem Custom-Screen) geschlossen, dann schließt diese Funktion gleichzeitig 
den Screen. 

Screen = OpenScreen(NewScreen) 

Öffnen eines Intuition-Screens. 

Eingaben: 

NewScreen Adresse der NewScreen-Struktur 

Ausgaben: 

Screen Adresse der Screen-Struktur 

C-Datentypen: 

struct Screen »OpenScreen( ); 
struct NewScreen * NewScreen; 

Beschreibung: 

Dies ist die zentrale Funktion zum Öffnen eines neuen Screens unter Intuition. Bevor Sie jedoch 
diese Funktion aufrufen können, müssen Sie eine Struktur mit dem Namen NewScreen initiali¬ 
sieren (in Basic entsprechenden Speicherplatz reservieren und belegen. Diese Struktur enthält 
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wichtige Daten über den neu einzurichtenden Screen (z.B. die Anzahl der Farben, die Auflö¬ 
sung etc.). Als Rückgabewert erhalten Sie die Adresse auf die eigentliche Screen-Struktur, in 
der Sie die Daten der NewScreen-Struktur und noch einige weitere Daten finden können. Den 
Aufbau der NewScreen-Struktur entnehmen Sie bitte den Beispielprogrammen. 

Window = OpenWindow(NewWindow) 

Öffnen eines Intuition-Windows. 

Eingaben: 

NewWindow Adresse der NewWindow-Struktur 
Ausgaben: 

Window Adresse der Window-Struktur 

C-Datentypen: 

struct Window *0penWindow(); 
struct NewWindow xNewWlndow; 

Beschreibung: 

Dieses Kommando öffnet ein neues Intuition-Fenster. Falls Sie in der NewWindow-Struktur den 
Screen-Typ CUSTOMSCREEN angeben, dann müssen Sie bereits einen solchen Screen per 
OpenScreen() geöffnet haben. Soll das Fenster in einem Standard-Screen geöffnet werden, 
dann wird dieser Screen automatisch geöffnet, falls er noch nicht existiert. 

Bevor Sie jedoch diese Funktion aufrufen können, müssen Sie eine Struktur mit dem Namen 
NewWindow initialisieren (in Basic entsprechenden Speicherplatz reservieren und belegen. 
Diese Struktur enthält wichtige Daten über das neu einzurichtende Fenster (z.B. Gadgets, 
Größe, Position etc.). Als Rückgabewert erhalten Sie die Adresse auf die eigentliche Window- 
Struktur, in der Sie die Daten der NewWindow-Struktur und noch einige weitere Daten finden 
können. Den Aufbau der NewWindow-Struktur entnehmen Sie bitte den Beispielprogrammen. 

ScreenToBack(Screen) 

Der angegebene Screen wird hinter alle anderen Screens manövriert. 

Eingaben: 

Screen Adresse der Screen-Struktur 

Ausgaben: 


C-Datentypen: 

vold ScreenToBackO; 

struct Screen *Screen; 

Beschreibung: 

Mit diesem Kommando erreichen Sie genau dasselbe, als wenn Sie mit der Maus das Tiefen- 
Arrangement-Gadget eines Screens anklicken: Der betroffene Screen wird hinter allen anderen 
Screens versteckt. 



Anhang 361 


ScreenToFront(Screen) 

Der angegebene Screen wird vor alle anderen Screens manövriert. 
Eingaben: 

Screen Adresse der Screen-Struktur 

Ausgaben: 


C-Datentypen: 

vold ScreenToFront(); 

struct Screen *Screen; 

Beschreibung: 

Mit diesem Kommando erreichen Sie genau dasselbe, als wenn Sie mit der Maus das Tiefen- 
Arrangement-Gadget eines Screens anklicken: Der betroffene Screen wird vor alle anderen 
Screens gelegt. 

Graphics-Funktionen: 

ClearScreen(RastPort) 

Löschen des gesamten Rasterports ab der aktuellen Grafikcursorposition. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 
Ausgaben: 


C-Datentypen: 

vold ClearScreen(); 

struct RastPort uRastPort; 

Beschreibung: 

Diese Funktion löscht zunächst ab der momentanen Cursorposition (einstellbar mit Move()) 
den Rest der Zeile bis zum rechten Bildschirmrand. Dann löscht sie ebenso den gesamten Rest 
des Rasters bis zum unteren Rand. Gelöscht wird mit 0. Im Zeichenmodus 2 mit der Farbe, die 
Sie durch SetBPen() setzen können. 

Draw(RastPört, x, y) 

Zeichnen einer Linie von der aktuellen Cursorposition nach x,y. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

x,y Koordinaten des Endpunktes 

Ausgaben: 
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C-Datentypen: 
vold Draw(); 

struct RastPort »RastPort; 
long x; 
long y; 

Beschreibung: 

Die vorgestellte Funktion zeichnet eine Linie (Farbe aus SetAPen) vom aktuellen Grafikcursor 
(mit Move() einstellbar, ansonsten der zuletzt gezeichnete Punkt) zum Punkt mit den Koordina¬ 
ten x,y. Dieser Endpunkt der Linie wird gleichzeitig zum aktuellen Grafikcursor. 

DrawCircle(RastPort, mx, my, radius) 

Zeichnen eines Kreises mit dem Radius radius und dem Mittelpunkt bei mx,my. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

mx, my Koordinaten des Kreismittelpunktes 

radius Größe des Radius in Pixel 

Ausgaben: 


C-Datentypen: 

vold DrawCircle(); 

struct RastPort uRastPort; 

long mx; 

long my; 

long radius; 

Beschreibung: 

Die vorgestellte Funktion zeichnet einen Kreis (Farbe aus SetAPen) mit dem angegebenen 
Radius und den Mittelpunktkoordinaten mx, my. 

DrawEllipse(RastPort, mx, my, x_radius, y_radius) 

Zeichnen einer Ellipse mit den Radien x_radius, y_radius und dem Mittelpunkt bei mx,my. 
Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

mx, my Koordinaten des Kreismittelpunktes 

x_radius Größe des Radius in x-Richtung (in Pixel) 

y_radius Größe des Radius in y-Richtung (in Pixel) 


Ausgaben: 
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C-Datentypen: 

void DrawElllpse(); 

struct RastPort »RastPort; 

long mx; 

long my; 

long x^radlus; 

long y_radius; 

Beschreibung: 

Die vorgestellte Funktion zeichnet eine Ellipse (Farbe aus SetAPen) mit den angegebenen 
Radien und den Mittelpunktkoordinaten mx, my. 

Flood(RastPort, modus, x, y) 

Ausfüllen einer beliebigen Fläche. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

x,y Koordinaten eines Punktes in der Fläche 

modus Füllmodus: 

= 0: Ausfüllen der zusammenhängenden Fläche, die die Farbe des Punktes 
bei x,y besitzt. 

= 1: Ausfüllen der zusammenhängenden Fläche, die von Punkten umrahmt 
ist, die mit SetOPen() gesetzt wurden. 

Ausgaben: 


C-Datentypen: 
void Flood(); 

struct RastPort xRastPort; 
long x; 
long y; 
long modus; 

Beschreibung: 

Mit dieser Funktion können Sie schnell beliebige Flächen ausfüllen. Dazu geben Sie mit x,y 
einen Punkt innerhalb dieser Fläche an. Wie der Rechner die Grenzen einer Fläche erkennt, 
das bestimmen Sie mit »modus«. Entweder Sie möchten nur die Fläche ausfüllen, die zur Zeit 
eine bestimmte Farbe hat (modus = 0), nämlich die des Punktes mit den Koordinaten x,y. In 
diesem Fall zeichnet die Funktion bis dorthin, wo sie eine andere Farbe erkennt. 

Im anderen Modus wird so lange ausgefüllt, bis die Funktion an einen Randpunkt gelangt, der 
die mit SetOPen gesetzte OUTLINE-Farbe besitzt. Das ist wohl der am meisten verwendete 
Modus. 
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Move(RastPort, x, y) 

Verschieben des Grafikcursors nach x,y (kein Zeichnen) 
Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

X, y Koordinaten des neuen Grafikcursors 

Ausgaben: 


C-Datentypen: 
void Move(); 

struct RastPort «RastPort; 
long x; 
long y; 

Beschreibung: 

Versetzt den internen unsichtbaren Grafikcursor (normalerweise der zuletzt gezeichnete Punkt) 
auf den Punkt mit den Koordinaten x,y. 

RectFill(RastPort, xl, yl, x2, y2) 

Zeichnen eines ausgefüllten Rechtecks. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

xl, yl Koordinaten des obersten linken Eckpunktes 

x2,y2 Koordinaten des untersten rechten Eckpunktes 

Ausgaben: 


C-Datentypen: 

void RectFillO; 

struct RastPort «RastPort; 

long xl; 

long yl; 

long x2; 

long y2 

Beschreibung: 

Die genannte Funktion zeichnet ein mit der durch SetAPen() gesetzten Farbe ausgefülltes 
Rechteck. Die Größe und die Position des Rechtecks definieren Sie durch die Angabe zweier 
gegenüber stehender Eckpunkte xl,yl und x2,y2. 
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SetAPen(RastPort, pal_reg) 

Setzen der aktuellen Zeichenfarbe auf die Farbe im Palettenregister pal_reg. 
Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

pal_reg Palettenregisternummer 

Ausgaben: 


C-Datentypen: 
void SetAPenO; 
struct RastPort »RastPort; 
long pal_reg; 

Beschreibung: 

SetAPen() definiert ein neues Palettenregister als Quelle der momentanen Zeichenfarbe, mit 
der ja alle normalen Zeichenoperationen ausgeführt werden. 

SetBPen(RastPort, paLreg) 

Setzen der aktuellen Hintergrundfarbe auf die Farbe im Palettenregister pal_reg. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

paLreg Palettenregisternummer 

Ausgaben: 


C-Datentypen: 
void SetAPenO; 
struct RastPort »RastPort; 
long paLreg; 

Beschreibung: 

SetBPen() definiert ein neues Palettenregister als Quelle der momentanen Hintergrundfarbe, 
die von verschiedenen Zeichenbefehlen verwendet wird. 

SetOPen(RastPort, paLreg) 

Setzen der aktuellen OUTLINE-Farbe auf die Farbe im Palettenregister pal_reg. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

paLreg Palettenregisternummer 

Ausgaben: 
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C-Datentypen: 
void SetOPenO; 
struct RastPort i^RastPort; 
long pal_reg; 

Beschreibung: 

SetOPen() definiert ein neues Palettenregister als Quelle der momentanen OUTLINE-Farbe, 
mit der manche Zeichenbefehle arbeiten. Gleichzeitig schaltet es die Umrahmung für Flächen¬ 
fülloperationen ein. SetOPen() ist keine eigentliche Funktion, sondern nur ein Makro (mit 
# define unter C im Include-File graphics/gfxmakros. h definiert). In Basic müssen Sie deshalb 
die folgende Befehlssequenz statt dessen verwenden: 

POKE WIND0W(8)+27,pal_reg 'Farbe setzen 
flags = WIND0W(8)+32 

POKEW flags, PEEKW(flags) OR 8 'OUTLINE-Flag ein 

SetDrMd(RastPort, modus) 

Setzen des aktuellen Zeichenmodus. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

modus Zeichenmodus: Die folgenden Werte bestimmen den Zeichenmodus und 

können durch Addition (Oder-Verkn.) kombiniert werden: 

= 0: (JAMl) Es wird nur mit der Zeichenfarbe (SetAPen()) gezeich¬ 

net. Soll ein Punkt in der Hintergrundfarbe gesetzt wer¬ 
den, dann wird er ignoriert. Ein Füllmuster z.B. 
erscheint dann transparent an den Stellen, an denen das 
Muster Null-Bits enthält. 

= 1: (JAM2) Es werden sowohl Zeichenfarbe (SetAPen()) als auch 

Hintergrundfarbe (SetBPen()) gesetzt. Ein Füllmuster 
beispielsweise verdeckt alle unter ihm liegende Grafik 
auf diese Weise vollständig. 

= 2: Führt eine Exklusiv-Oder-Verknüpfung (XOR) der Palet- 

(COMPLEMENT) tenregisternummer mit den Farben aller angesprochenen 
Punkten durch. Das können z.B. alle Punkte sein, die nur 
durch die Vordergrundfarbe angesprochen werden sollten 
(Kombination JAMl-f-COMPLEMENT). 

= 4: Hintergrund- und Vordergrundfarbe werden miteinander 

(INVERSIVD) vertauscht. 


Ausgaben: 
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C-Datentypen: 
void SetDrMdO; 
struct RastPort * RastPort; 
long modus; 

Beschreibung: 

Der Befehl stellt den gewünschten Zeichenmodus ein, der von allen Zeichenfunktionen berück¬ 
sichtigt wird. 


SetRGB4(ViewPort, pal_reg, rot, gruen, blau) 

Weist einem Palettenregister des ViewPort (Screen) eine Farbkombination zu. 


Eingaben: 

ViewPort 


pal_reg 

rot 

gruen 

blau 


Adresse des angesprochenen Viewports. Unter Intuition steht der Viewport 

für den Screen in der Screenstruktur. Sie können also in C angeben: 

&Screen- > ViewPort 

Palettenregisternummer 

Intensitätswert für den Rotanteil 

Intensitätswert für den Grünanteil 

Intensitätswert für den Blauanteil 


Ausgaben: 


C-Datentypen: 

void SetRGB4(); 

struct ViewPort JtVlewPort; 

long pal_reg; 

long rot; 

long gruen; 

long blau; 

Beschreibung: 

Mit dieser Funktion können Sie einem Palettenregister eine der insgesamt 4096 möglichen 
Farbkombinationen zuweisen. 

error = Text(RastPort, string, anz_zei) 

Ausgabe eines Textstrings im aktuellen Zeichensatz. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 

String Adresse des auszugebenden Textstrings 

anz_zei Anzahl der Zeichen im String 

Ausgaben: 


error 


= 0: kein Fehler 

<>0: Fehler 
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C-Datentypen: 

BOOL TextO; 

struct RastPort *RastPort; 
char ^tstring; 

Icjng anz_zei; 

Beschreibung: 

Text_ gibt einen Text an der aktuellen Grafikcursorposition aus. 

WaitTOF_ 

Warten, bis der Elektronenstrahl den nächsten View (Screen) erreicht hat. 
Eingaben: 


Ausgaben: 


C-Datentypen: 
vold WaitT0F_; 

Beschreibung: 

Mit dieser Funktion haben Sie die Möglichkeit, Ihre Grafikausgaben mit dem Elektronenstrahl 
des Monitors zu synchronisieren. Sie wartet, bis dieser das Ende Ihres Screens erreicht hat. 
Auf diese Weise können Sie in der Zeit, die der Strahl bis zum Beginn Ihres Screens braucht, 
Grafiken flackerfrei zeichnen. 


WritePixel(RastPort, x, y) 

Setzen eines Punktes bei x,y. 

Eingaben: 

RastPort Adresse des angesprochenen Rasterports 
X, y Koordinaten des zu setzenden Punktes 

Ausgaben: 


C-Datentypen: 

vold WritePlxelO; 

struct RastPort xRastPort; 

long x; 

long y; 

Beschreibung: 

Mit dieser Funktion setzen Sie einen einzigen Punkt auf dem Bildschirm. Er nimmt die aktuelle 
Zeichenfarbe an. Gleichzeitig wird dieser Punkt zum aktuellen Grafikcursor. 
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2-D-Operationen 43 
A 

Achsenabschnittsform 49,343 
Achsensymmetrisch 316 
ACTIVATE 37 
Additionstheoreme 65 
Additive Farbmischung 16 
Allgemeine Form 48,342 
Amiga-Basic 26 
Antiparallel 97 
Arcuscosinus 338 
Arcussinus 338 
Arcustangens 338 
Area-OUTLINE-Flag 222 
Auflösung 19 
Aztek-Compiler 30 

B 

Basic 26 

Beobachter 91,228,230 
Beobachtungswinkel 231 
Bibliotheksfunktionen 26 
Bildebenen 23 
Bildschirm 29 
Bildschirmfotos 20 
Bildschirmspeicher 22 
Bildsystem 90 
Blickpunkt 230 
Blickrichtung 91 
Blickvektor 230 
Bmap-Dateien 28 
Brechungsgesetz 311 
Brechungsindex 312 

C 

C 30 

C-Makro 222 


Call 27 
Chip-RAM 24 
CIRCLE 28 
dass 39 
ClearScreen 361 
Clipping 79 
CloseLibrary 356 
CloseScreen 358 
CLOSEWINDÖW 37 
CloseWindow 359 
Code 39 

Cohen-Sutherland-Algorithmus 82 

Compiler 296 

ConvertFD 28 

Coprozessoren 24 

Cosinus 336 

Crosshatching 180 

Custom-Chips 24 


D 

Datensystem 96 
DEGree 66 
Diffuse Reflexion 242 
DOS-Funktionen 356 
Drahtmodell 96 
Draw 361 
DrawCircle 362 
DrawEllipse 362 
-0 28 

Drehung 63,133,350 
Drehwinkel 65 
Drehzentrum 64 
Dreieck 338 
Durchsichtige Körper 311 
Durchdringung 207 


E- 

Ebene 238,246 
Ebenen 344 
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Ebenendarstellung 105 
Einheitskreis 336 
Einheitsmatrizen 55 
Einheitsvektor 97,232,339 
Ellipse 50 
Error 367 

Exec-Funktionen 356 
Exec.library 27 
Exec/types.h 36 
Exit 356 
ExitO 38 

Extra-Halfbrite-Modus 21 
EXTRA HAI.FBRITE 297 


F 

Farbberechnungen 304 

Farbe 16,242 

Fast-RAM 24 

fd-Dateien 28 

Fenster 29 

FFP-Library 30 

FFP-Routinen 296 

Fläche 238 

Flächen 91 

Flächenmodell 202 

Flächenrichtungsvektor 205 

Flächenrückenunterdrückung 202 

Flags 39 

Flood 363 

Fluchtpunkt 128 

Font 37 

Funktionen 174 

Funktionsplotter 188 

Fußpunkt 97 

G 

Gerade 49,238 
Geraden 342 
Geradengleichung 48 
GetMsg 356 
GfxBase 36 
Grad 338 
Grafik 31 

Grafikauflösungen 19 
Grafikmodi 39 
Grafische Bibliothek 26 
Graphics 361 


Graphics-Library 26 
Graphics.library 26 
Grundfarben 16 

H 

HAM 20 
HAM-Modus 297 
Hintergrundhelligkeit 248 
Hintergrundreflexion 243 
Hold-and-Modify 297 
Hold-and-Modify-Modus 20 
Homogene Koordinaten 70 
Hypothenuse 338 

I 

IDCMP-Flags 37,39 
IFF-Format 297 
Include-Files 30 
Intensität 245 
Intensitätsbeizahl 302 
Interlace-Modus 20 
Intuition 358 
Intuition-Bibliothek 27 
Intuition.library 27 
Intuition/intuition.h 36 
IntuitionBase 36 

K 

Kabinettprojektionen 113 
Katheten 338 
Kavalierprojektionen 113 
Konkav 206 
Konvex 206 

Koordinatenschreibweise 97 
Koordinatensystem 88 
Kreis 50 
Kreisbogen 337 
Kreisradius 338 
Kugel 236,246 

L 

Lattice-Compiler 31 
Libraries 26 
Library 27,357 
-, Close 27 
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Library-Funktionen 355 
Lichtbrechung 311 
Lichtintensität 242 
Lichtquelle 228,243,245,248 
Lichtstrahl 228,242,312 
Linear unabhängig 203 
Liniendarstellung 103 
Linientabelle 124 
Linkssystem 89 

M 

Makros 298 
Material 242 
Materialkonstante 246 
Mathematische Bibliotheken 26 
Mathffp.libray 26 
Mathieeedoubbas.library 26 
Mathtrans.library 26 
Matrix-Multiplikation 53,347 
Matrizen 51,345 
Mattscheibe 230 
Message 356 
MouseX 39 
MouseY 39 
Move 364 

Multiplikation 98,340 
Multitasking-Systembibliothek 27 

N 

NEWSIZE 37 
NewWindow-Struktur 37 
NOCAREREFRESH 37 
Normalengleichung 108 
Normalvektor 244 
Normierte Form 48,342 
NTSC 19 
Nullvektor 97,340 

O 

Objekt 92 
Objektsystem 92 
OpenLibrary 357 
OpenLibraryO 38 
OpenScreen 359 
OpenScreenO 38 
OpenWindow 360 


OpenWindowO 38 
OUTLINE-Pens 222 

P 

Painters Algorithm 207 
PAL 19 
Palette 18 
Palettenregister 18 
Parallel 97,339 
Parallelogramm 238 
Parallelprojektion 112 
Perspektivische Projektion 71 
Perspektivische Projektion 128 
Perspektivische Verzerrung 127 
Perspektivisches Zentrum 128 
PI 337 

Polygonüberlappung 209 
Projektionen 110 
Projektionsebene 113,228 
Projektionsvektoren 113 
Punkt-Steigungs-Form 49,343 
Punktdarstellung 102 
Punktgröße 231 
Punktspiegelung 63 
Punkttabelle 124 

Q 

Quadratische Matrix 52,346 

R 

RADiant 66 
Radiant 337 
Radius 50 
Radiusvektor 237 
Rasterport 38 
Raumkoordinaten 121 
Ray-Tracing 228,248 
Ray-Tracing-Programm 249 
Rechteck 238 
Rechtssystem 89 
Rechtwinkliges Dreieck 336 
RectFill 364 
Reflexion 242 
Reflexionsfunktion 245 
Reflexionsgesetz 242 
Reflexionskonstante 243 
Reflexionsstrahl 246 
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Reflexionsvektor 245,246 
Rekursiv 84 
ReplyMsg 358 
ReplyMsgO 38 
RGB 16 

Richtungsvektor 103,204 
Rotation 63,72,134,167,350,352 
Rotationskörper 312 
Rotationsmatrix 66 

S 

s-t-Gleichung 108 

Schatten 248 

Schließ-Gadget 37 

Schnittpunkt 83,104 

Schnittpunktberechnung 230,236,304 

Schrittwinkel 317 

SCREEN 29 

Screen 29,31,359 

SCREEN CLOSE 29 

ScreenToBack 360 

ScreenToFront 361 

SetAPen 365 

SetBPen 365 

SetDrMd 366 

SetOPen 365 

SetRGB4 366 

-0 19 

SetRGB4MC () 19 
Sichtvektor 204,231,245 
Signal 358 
Sinus 336 
Sinustabelle 163 
Skalarprodukt 100,340 
Skalierung 57,132,348,351 
SMART_REFRESH 37 
Spiegelungen 62,349 
Spiegelnde Reflexion 245 
Spitze 97 
Steigung 49 
Strahl-Verfolgung 228 
Strahlberechnung 235 
Subtraktive Farbmischung 16 

T 

Tangens 336 
Text 367 

Tiefensortierung 207 


Transformation 51,132 
Transformationsmatrizen 348 
Translation 70,133,349,351 
Translationsmatrix 71 
Transparenz 311 

Trigonometrische Funktionen 336 

V 

Vektor 96,339 
Vektoraddition 99,340 
Vektorielle Ebenengleichung 106 
-, Geradengleichung 103 
Vektorprodukt 101,342 
Vektorrechnung 96,339 
Vektorsubtraktion 99,340 
Verformung 75 
Vergrößerung 132,348,351 
Verkettete Matrizen 53,347 
Verkleinerung 132,348,351 
Vernetzung 180 
Verschiebung 70,133,349,351 
Versteckte Flächen 174 
Linien 174,183 
Video-Prozessoren 20 
View-Koordinatensystem 91 
ViewModes 39 

W 

Wait 39,358 
WaitTOF 368 

Wechselnde Überlappung 207 
Wellenlänge 245 
Weltsystem 91 
WINDOW 29 
WindWindow 29,31,360 
WINDÖWCLOSE 37 
WINDOWDEPTH 37 
WINDOWDRAG 37 
WINDOWSIZING 37 
Winkel 336 
Winkelfunktion 64 
WritePixel 368 

Z 

z-Achse 89 
Zentralprojektion 127 
Zweipunktegleichung 49,343 
Zyklische Überlappung 207 
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Atlantis 

AmigaCall 

Treten Sie ein in die 
faszinierende Weit der 
Datenfernü bertragu ng. 
Kommunizieren Sie über 
Maiiboxen mit erfahrenen 
Computer-Anwendern, 
die Ihnen bei Ihren Pro¬ 
blemen weiterhelfen kön¬ 
nen, oder Sie erhalten auf 
diesem Wege leistungs¬ 
fähige Publio-Domain- 
Software. AmigaCall 
nimmt Ihnen die meiste 
Arbeit ab. Schließen Sie 
Ihr Modem oder Ihren 
Akustikkoppler an, starten 
Sie AmigaCall - und auf 
geht’s. 

1988, 133 Seiten, inkl. 
3V2"-Programmdiskette 
Bestell-Nr. 90716 
ISBN 3-89090-716-4 

DM 99,-* 

(sFr 91,-*/öS 842,-*) 


R.Arbinger/l. Krüger 

Scriptum 

Scriptum - das schnelle, 
leistungsfähige Textverarbei¬ 
tungssystem für den Amiga. 
Ausführliche Bedienungsan¬ 
leitung im Buch. Für alle, 
die auf dem Amiga Texte 
verarbeiten wollen. 


1989, ca. 200 Seiten, inkl. 
3V2"-Programmdiskette 
Bestell-Nr. 90650 
ISBN 3-89090-650-8 

DM 79,-* 

(sFr 72,70*/öS 672,-*) 

* Unverbindliche 
Preisempfehlung 



Atlantis 
Trickstudio A 

Ob Sie Computerfilm- 
Pionier sind oder Trick¬ 
profi, ob Sie von Walt Dis¬ 
ney inspiriert sind oder 
einfach nur einen guten 
Lehrfilm für technische 
Abläufe benötigen: Mit 
Trickstudio A können Sie 
Ihre eigenen Trickfilme 
erstellen und diese mit 
Sound und Geräuschen 
untermalen. 

Wie wäre es also mit 
einem Stummfilm-Slap¬ 
stick, einem Krimi oder 
einem Werbefilm für Ihr 
Schaufenster? Dazu Ihre 
Lieblingsmusik oder 
digitalisierte Stimmen? 
Entwerfen Sie die Einzel¬ 
bilder, z. B. mit Deluxe 
Paint, erstellen Sie eine 
Sounddatei und dann: 
Klappe - Film; die erste. 
1988, 86 Seiten, inkl. 
3V2"-Programmdiskette 
Bestell-Nr. 90715 
ISBN 3-89090-715-6 
DM 99,-* 

(sFr 91,-*/öS 842,-*) 




Markt&Technik 

Zeitschriften ■ Bücher 
Software ■ Schulung 


Markt&Technik Verlag AG, Buchverlag, Flans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 












Amite 




Commodore-Amiga Inc. 
Das Amiga-DOS- 
Handbuch für Amiga 
500, 1000 und 2000 

1988, 342 Seiten 
Die Pflichtlektüre für jeden 
Commodore-Amiga- 
Anwender und Program¬ 
mierer: eine Entwickler- 
Dokumentation zum 
Amiga-DOS-Betriebs- 
system, Version 1.2. 
Programmierung, interne 
Datenstruktur und Disket¬ 
tenhandling. Mit diesem 
Buch lernen Sie das 
mächtige Amiga DOS 
schnell und sicher zu 
beherrschen. Alle Mög¬ 
lichkeiten des Systems, 
bis hin zum »Multi-Tasking« 
werden ausführlich und 
anschaulich beschrieben. 
Best.-Nr. 90465 
ISBN 3-89090-465-3 
DM 59,- 


Kremser/Koch 

Amiga 

Programmierhandbuch 

1987, 387 Seiten, 
inkl. Diskette 

Eine tolle Einführung in die 
»Interna« des Amiga: Die 
wichtigsten Systembiblio¬ 
theken, die das Betriebs¬ 
system zur Verfügung stellt, 
werden anhand vieler Bei¬ 


spiele erklärt. Aus dem 
Inhalt: Aufruf der Betriebs¬ 
system-Routinen unter C, 
Aufruf der DOS-Funktionen, 
Programmieren von Win¬ 
dows, Screens und Gad- 
gets, Grafik und Animation, 
Tips und Tools in C. 
Best.-Nr. 90491 
ISBN 3-89090491-2 
DM 69,- 



M. Breuer 

Das Amiga-500- 

Handbuch 

1987, 489 Seiten 
Eine ausführliche Einfüh¬ 
rung in die Bedienung 
des Amiga 500. Kennen¬ 
lernen und Anwenden der 
neuen Computer-Techno¬ 
logie: Systemarchitektur, 
Workbench 1.2, Intuition, 
CU, Amiga-Grafik, Sound- 
Erzeugung, Amiga-BASIC 
und Schnittstellen. Neben 
dem Handbuchteil mit 
vielen Bildschirmfotos und 
Übersichtstabellen, die 
Ihnen beim täglichen Ein¬ 
satz helfen, schnell und 
reibungslos zu arbeiten, 
enthält das Buch eine 
ausführliche Beschrei¬ 
bung des Amiga 500 und 
seines Zubehörs. 

Best.-Nr. 90522 
ISBN 3-89090-522-6 
DM 49,- 
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R Wollschlaeger 

Amiga: Progtammierpraxis 
Intuition 

Eine detaillierte Beschrei¬ 
bung von Intuition! Neben 
der Programmierung von 
Fenstern, Menüs und Gra¬ 
fiken behandelt der Autor 
auch wichtige Randgebiete, 
wie die Ein- und Ausgabe 
von Texten oder Zugriff auf 
die Diskette. 

Sie erfahren, wie ein Pro¬ 
gramm zu gestalten ist, 
damit es sowohl unter CLI 
als auch unter Intuition läuft 
und Multitasking-fähig ist. 

Mit allen Beispielen für die 
Programmierung von Win¬ 
dows, Menüs, Requestern 
und Grafik auf Diskette. 
1988, 330 Seiten, 
inki. Diskette 
Bestell-Nr. 90593 
ISBN 3-89090-593-5 
DM 69,- 

(sFr 63,50/öS 538,-) 
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R Wollschlaeger 
Amiga-Assembler-Buch 

Nach einem Minimum an 
Theorie geht dieses Buch 
sofort in die Praxis. Aus 
dem Inhalt: Grundlagen 
des 68000er, Systempro- 
grammierung, Program¬ 
mierung von Intuition, 


schnelle Grafik in Farbe, 
alle Systemroutinen mit 
Parametern. 

1987, 329 Seiten, 
inkl. Diskette 
Bestell-Nr 90525 
ISBN 3-89090-525-0 
DM 59,- 

(sFr 54,30/öS 460,-) 
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I. Krüger 

Amiga: Progtammieren 
mit Modula 2 

Leichtverständlicher 
Modula-2-Kurs! Mit vielen 
Beispielen für die system¬ 
nahe Programmierung 
unter der grafischen 
Benutzeroberfläche 
»Intuition«. Aus dem Inhalt: 
Programm-Module, 
Variablendeklaration, 
Strukturanweisungen, Pro¬ 
zeduren, lokale und 
externe Module, Verwen¬ 
dung von Zeigern, system¬ 
nahe Programmierung, 
Coroutinen (Verarbeitung 
von parallelen Prozessen), 
Programmierung unter 
Intuition (Screens, Win¬ 
dows, Gadgets, 

Requester). 

1988, 350 Seiten, inkl. Disk. 
Bestell-Nr. 90554 
ISBN 3-89090-554-4 

DM 69,- 

(sFr 63,50/öS 538,-) 
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H.Knappe 
Fraktale Grafik 
auf dem Amiga 

Das Thema dieses Buches 
wird den meisten als 
ungewöhnlich erscheinen, 
denn es führt in die Grenz¬ 
bereiche des heutigen 
Wissens der Mathematik 
und Technik, 

Grundlegende Kenntnisse 
der Programmiersprache C 
und ihrer Anwendung 
auf dem Amiga werden 
vorausgesetzt. Für die 
nachträgliche Veränderung 
berechneter Bilder ist es 
sinnvoll, ein Malprogramm 
(z. B. Deluxe Paint) 
zu besitzen. 

1988, 278 Seiten, 
inkl. Diskette 
Bestell-Nr 90600 
ISBN 3-89090-600-1 
DM 79,- 

(sFr 72,70/öS 616,-) 


Markt&Technik 
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H. R. Henning V 
Grafik mit Amiga-Basic 

Dieses Buch ist speziell 
der Grafik-Programmie¬ 
rung auf dem Amiga 
gewidmet. Der erste Teil 
stellt für den Anfänger alle 
bekannten Grafik-Befehle 
des Amiga-Basic vor. Mit 
Beginn des zweiten Teiles 
werden die Routinen des 
Betriebssystems zur Grafik- 
Programmierung heran¬ 
gezogen. Damit werden 
die Möglichkeiten des 
Basic um ein Vielfaches 
erweitert, und es sind 
Geschwindigkeiten möglich, 
die kaum vermuten lassen, 
daß dabei ein Basic- 
Programm abläuft. 

1989, ca. 300 Seiten, 
inkl. Diskette 
Bestell-Nr 90669 
ISBN 3-89090-669-9 
DM 59,- 

(sFr 54,30/öS 460,-) 




A. Plenge 

Amiga 3-D-Grafik und 
Animation 

Angefangen bei den ein¬ 
fachsten Problemstellungen 
lernen Sie, professionelle 
3-D-Grafiken auf Ihrem 
Commodore Amiga zu 


planen, zu programmieren 
und darzustellen. 

1988, 376 Seiten, 
inkl. Diskette 
Bestell-Nr. 90526 
ISBN 3-89090-526-9 
DM 69,- 

(sFr 63,50/öS 538,-) 


UND 


^perspektivische Projektion, 

, ^Flächen, .W-Funkiionspiotter, 
Ray-Tracing, Spiegelungen, Reflexionen, Lichtquellen, 
Lichtbrechung, Schatten, Rotationskörper. 


FIK 

lATION 










Jetzt stehen Ihnen die 
Funktionen ihres Amiga- 
Command-Line-interface per 
Mauskiick zur Verfügung! 


• Ausdrucken von Dateien auf 
Drucker 

• Informationen über die Dis¬ 
ketten (Programmlänge und 
ähnliches) 

• Betrachten von Bildern im 
IFF-Format (inklusive FIAM) 


• Sie können Dateien aus belie¬ 
bigen Verzeichnissen in ande¬ 
re Verzeichnisse kopieren 

• Bildschirmausgabe von 
Dateien in ASCII und in hexa¬ 
dezimaler Form 

• Unterstützung von Jokerzei¬ 
chen bei Disketten- und 
Dateioperationen 


Mit diesem Programm können 

Sie die Befehle des Command- 

Line-Interface (CLI) benutzer¬ 
freundlich und schnell per 

Mausklick verwenden! 

Ihre Super-Vorteile mit 

CLImate1J2: 

• sehr große Übersichtlichkeit 
der Bildschirmdarstellung 
(Sie haben alle Funktionen 
auf einen Blick) 

• leichte Bedienung aller 
Befehle mit der Maus 

• drei externe Laufwerke 
(3V2" oder 5V4"), zwei Fest¬ 
platten, RAM-Disk unter¬ 
stützen Sie 

• schnelle Directory-Anzeige 

• Sie können Disketten leicht 
nach Texten, Bildern u.ä, 
durchsuchen 

• Dateien lassen sich mit 
Pause/Continue-Möglichkeit 
betrachten 




CLliiiatei.2 
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CLImate1.2 - das unentbehrliche 
Programm für den Amiga-500-, 
Amiga-KXX)- und Amiga-2000- 
Besitzer. 

Am besten gleich bestellen! 

Hardware-Anforderungen: 
Amiga500,1000 oder 2000 mit 
mindestens 512 Kbyte Haupt¬ 
speicher. Empfohlene Hard¬ 
ware: Farbmonitor. 
Software-Anforderu ngen: 
Kickstart 1.2 (oder ROM bei 
Amiga 500 und 2000), Work- 
bench 1,2, Eine 3V2''-Diskette für 
den Amiga 500,1000 und 2000. 
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Haben Sie das Eintippen satt? 
Zing! ermöglicht Ihnen den 
mausgestützten Zugriff auf Ihr 
Am iga- Betriebssystem. 

Dieses Programm übernimmt 
die lästige und fehleranfällige 
Tipparbeit beim Arbeiten mit 
dem Betriebssystem Ihres 
Amiga. Zing! befindet sich nach 
dem erstmaligen Abrufen im 
Hintergrund und kann mit Hiife 
von sogenannten »Hotkeys« 
jederzeit in Aktion treten. Volle 
Multitasking-Fähigkeit ist selbst¬ 
verständlich. Wahlweise über 
Maus oder Funktionstasten 
stehen Ihnen speicherresident 
unter anderem folgende Funk¬ 
tionen zur Verfügung: 

• Verzeichnis wechseln - Anzei¬ 
gen eines Dateibaums - Dateien 
kopieren - Dateien umbenennen 
- Dateien schreibsohützen - 
Restspeicheranzeige - Dateien 
löschen - Dateien zusammen¬ 
führen - Dateien verlagern - 
Verzeichnisse erstellen - Datei¬ 
kommentar erstellen - System¬ 
statusanzeige - automatische 
Bildschirmabsohaitung (Screen 
Saver)... und vieles mehr! Die 
Auswahl der Dateien kann mit 
der Maus vorgenommen 
werden, mögliche Kriterien sind 
zum Beispiel auf Dateinamen 
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basierende Sortiermuster oder 
der Zeitpunkt der Dateierstel¬ 
lung. Verzeiohnisanzeige mit 
Schnellsortierdurohlauf ist bei 
Zing! genauso selbstverständ¬ 
lich wie die Möglichkeit, sowohl 
ganze Datei bäume als auch 
Teile von ihnen zu kopieren. Zu¬ 
sätzlich enthält das Programm 
viele nützliche Dienstprogram¬ 
me, zum Beispiel: 

• Druckerspooler - Bild¬ 
schirmausdruck - Speichern 
eines Bildschirms als IFF-Grafik 
- Überwachung von anderen 
Programmen 

• Umbelegung der Funktions¬ 
tasten-interne Symbol¬ 
zuweisung 

• Diskcopy-Funktion - Disket¬ 
ten installieren - Disketten 
umbenennen - Disketten 
formatieren - direkter Aufruf 
von Programmen 

Lieferumfang: 

• deutsche Programmversion 
aufS'fe'-Diskette 

• Handbuch deutsch 

Hardware-Anforderungen: 

• Amiga 500,1000 oder 2000 

Software-Anforderung 

(speziell für Amiga 1000) 

• Kickstart 33.180 (Version 1.2) 
oder höher 
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Bitte schneiden Sie diesen Coupon aus, und schicken Sie Ihn In einem Kuvert an: 
Markt&Technik Verlag AG, Bucnverlag, Hans-Pinsel-Straße 2, 8013 Haar 


Comput^Herafur 
und Safere vom 
Spezialisten 

I 

Vom Einsteigerbuch für deh Heim- oder Personalcom¬ 
puter-Neuling über professionelle Progrommierhond- 
Dücher bis hin zum Elektronikbuch bieten wir Ihnen inter¬ 
essante und topaktuelle Titpl für 
I 

• Apple-Computer • Atafi-Computer • Commodore 
64/128/16/116/Plus 4 • Schpeider-Computer • IBM-PC, 
XT und Kompatible I 

sowie zu den Fachbereichen Programmiersprachen • 
Betriebssysteme (CP/M, M^-DOS, Unix, Z80j • Textver¬ 
arbeitung • Datenbanksystpme • Tabellenkalkulation • 
Integrierte Software • Mikrcjiprozessoren • Schulungen. 
Außerdem finden Sie professionelle Spitzen-Programme 
in unserem preiswerten Sqifware-Angebot für Amiga, 
Atari ST, Commodore 128, 128 D, 64, 16, für Schneider- 
Computer und für IBM-PCs jnd Kompatible! 

Fordern Sie mit dem nebenstehenden Coupon unser 
neuestes Gesamtverzeichn s und unsere Programmser- 
vice-Übersichtenan, mithilfreichen Utilities, professionel¬ 
len Anwendungen oder packenden Computerspielen! 
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